home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| POSIX shell script text executable
| default
| |
| 99%
| file
| a /bin/sh script, ASCII text executable
| default (weak)
| |
| 100%
| TrID
| shar SHell self-extracting aRchive
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| gt2
| Shell Skript: '/bin/sh'
| default (weak)
| |
| 100%
| detectItEasy
| Format: Plain text[LF]
| default
| |
| 100%
| binwalkID
| Executable script, shebang: "/bin/sh"
| default (weak)
| |
| 100%
| xdgMime
| application/x-shellscript
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 23 21 20 2f 62 69 6e 2f | 73 68 0a 23 20 54 68 69 |#! /bin/|sh.# Thi|
|00000010| 73 20 69 73 20 61 20 73 | 68 65 6c 6c 20 61 72 63 |s is a s|hell arc|
|00000020| 68 69 76 65 2e 20 20 52 | 65 6d 6f 76 65 20 61 6e |hive. R|emove an|
|00000030| 79 74 68 69 6e 67 20 62 | 65 66 6f 72 65 20 74 68 |ything b|efore th|
|00000040| 69 73 20 6c 69 6e 65 2c | 20 74 68 65 6e 20 75 6e |is line,| then un|
|00000050| 70 61 63 6b 0a 23 20 69 | 74 20 62 79 20 73 61 76 |pack.# i|t by sav|
|00000060| 69 6e 67 20 69 74 20 69 | 6e 74 6f 20 61 20 66 69 |ing it i|nto a fi|
|00000070| 6c 65 20 61 6e 64 20 74 | 79 70 69 6e 67 20 22 73 |le and t|yping "s|
|00000080| 68 20 66 69 6c 65 22 2e | 20 20 54 6f 20 6f 76 65 |h file".| To ove|
|00000090| 72 77 72 69 74 65 20 65 | 78 69 73 74 69 6e 67 0a |rwrite e|xisting.|
|000000a0| 23 20 66 69 6c 65 73 2c | 20 74 79 70 65 20 22 73 |# files,| type "s|
|000000b0| 68 20 66 69 6c 65 20 2d | 63 22 2e 20 20 59 6f 75 |h file -|c". You|
|000000c0| 20 63 61 6e 20 61 6c 73 | 6f 20 66 65 65 64 20 74 | can als|o feed t|
|000000d0| 68 69 73 20 61 73 20 73 | 74 61 6e 64 61 72 64 20 |his as s|tandard |
|000000e0| 69 6e 70 75 74 20 76 69 | 61 0a 23 20 75 6e 73 68 |input vi|a.# unsh|
|000000f0| 61 72 2c 20 6f 72 20 62 | 79 20 74 79 70 69 6e 67 |ar, or b|y typing|
|00000100| 20 22 73 68 20 3c 66 69 | 6c 65 22 2c 20 65 2e 67 | "sh <fi|le", e.g|
|00000110| 2e 2e 20 20 49 66 20 74 | 68 69 73 20 61 72 63 68 |.. If t|his arch|
|00000120| 69 76 65 20 69 73 20 63 | 6f 6d 70 6c 65 74 65 2c |ive is c|omplete,|
|00000130| 20 79 6f 75 0a 23 20 77 | 69 6c 6c 20 73 65 65 20 | you.# w|ill see |
|00000140| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 6d 65 |the foll|owing me|
|00000150| 73 73 61 67 65 20 61 74 | 20 74 68 65 20 65 6e 64 |ssage at| the end|
|00000160| 3a 0a 23 09 09 22 45 6e | 64 20 6f 66 20 73 68 65 |:.#.."En|d of she|
|00000170| 6c 6c 20 61 72 63 68 69 | 76 65 2e 22 0a 23 20 43 |ll archi|ve.".# C|
|00000180| 6f 6e 74 65 6e 74 73 3a | 20 20 53 79 73 56 52 33 |ontents:| SysVR3|
|00000190| 2e 70 63 68 0a 23 20 57 | 72 61 70 70 65 64 20 62 |.pch.# W|rapped b|
|000001a0| 79 20 62 69 6c 6c 72 40 | 73 61 61 62 20 6f 6e 20 |y billr@|saab on |
|000001b0| 54 75 65 20 4e 6f 76 20 | 20 38 20 30 39 3a 32 36 |Tue Nov | 8 09:26|
|000001c0| 3a 33 35 20 31 39 38 38 | 0a 50 41 54 48 3d 2f 62 |:35 1988|.PATH=/b|
|000001d0| 69 6e 3a 2f 75 73 72 2f | 62 69 6e 3a 2f 75 73 72 |in:/usr/|bin:/usr|
|000001e0| 2f 75 63 62 20 3b 20 65 | 78 70 6f 72 74 20 50 41 |/ucb ; e|xport PA|
|000001f0| 54 48 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 53 |TH.if te|st -f 'S|
|00000200| 79 73 56 52 33 2e 70 63 | 68 27 20 2d 61 20 22 24 |ysVR3.pc|h' -a "$|
|00000210| 7b 31 7d 22 20 21 3d 20 | 22 2d 63 22 20 3b 20 74 |{1}" != |"-c" ; t|
|00000220| 68 65 6e 20 0a 20 20 65 | 63 68 6f 20 73 68 61 72 |hen . e|cho shar|
|00000230| 3a 20 57 69 6c 6c 20 6e | 6f 74 20 63 6c 6f 62 62 |: Will n|ot clobb|
|00000240| 65 72 20 65 78 69 73 74 | 69 6e 67 20 66 69 6c 65 |er exist|ing file|
|00000250| 20 5c 22 27 53 79 73 56 | 52 33 2e 70 63 68 27 5c | \"'SysV|R3.pch'\|
|00000260| 22 0a 65 6c 73 65 0a 65 | 63 68 6f 20 73 68 61 72 |".else.e|cho shar|
|00000270| 3a 20 45 78 74 72 61 63 | 74 69 6e 67 20 5c 22 27 |: Extrac|ting \"'|
|00000280| 53 79 73 56 52 33 2e 70 | 63 68 27 5c 22 20 5c 28 |SysVR3.p|ch'\" \(|
|00000290| 32 36 31 34 36 20 63 68 | 61 72 61 63 74 65 72 73 |26146 ch|aracters|
|000002a0| 5c 29 0a 73 65 64 20 22 | 73 2f 5e 58 2f 2f 22 20 |\).sed "|s/^X//" |
|000002b0| 3e 27 53 79 73 56 52 33 | 2e 70 63 68 27 20 3c 3c |>'SysVR3|.pch' <<|
|000002c0| 27 45 4e 44 5f 4f 46 5f | 46 49 4c 45 27 0a 58 2a |'END_OF_|FILE'.X*|
|000002d0| 2a 2a 20 52 45 41 44 4d | 45 2e 72 6a 6e 6f 65 2e |** READM|E.rjnoe.|
|000002e0| 6f 72 69 67 09 46 72 69 | 20 4f 63 74 20 32 38 20 |orig.Fri| Oct 28 |
|000002f0| 31 31 3a 33 36 3a 33 38 | 20 31 39 38 38 0a 58 2d |11:36:38| 1988.X-|
|00000300| 2d 2d 20 52 45 41 44 4d | 45 2e 72 6a 6e 6f 65 09 |-- READM|E.rjnoe.|
|00000310| 46 72 69 20 4f 63 74 20 | 32 38 20 31 31 3a 33 36 |Fri Oct |28 11:36|
|00000320| 3a 33 38 20 31 39 38 38 | 0a 58 2a 2a 2a 2a 2a 2a |:38 1988|.X******|
|00000330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 58 2a 2a 2a 20 30 |********|*.X*** 0|
|00000340| 0a 58 0a 58 2d 2d 2d 20 | 31 2c 31 34 34 20 2d 2d |.X.X--- |1,144 --|
|00000350| 2d 2d 2d 0a 58 2b 20 49 | 20 68 61 76 65 20 61 74 |---.X+ I| have at|
|00000360| 74 65 6d 70 74 65 64 20 | 70 6f 72 74 69 6e 67 20 |tempted |porting |
|00000370| 74 68 65 20 55 4e 49 58 | 20 46 37 37 20 76 65 72 |the UNIX| F77 ver|
|00000380| 73 69 6f 6e 20 6f 66 20 | 44 75 6e 67 65 6f 6e 20 |sion of |Dungeon |
|00000390| 2d 20 77 68 69 63 68 20 | 79 6f 75 20 70 6f 73 74 |- which |you post|
|000003a0| 65 64 0a 58 2b 20 74 6f | 20 55 73 65 6e 65 74 20 |ed.X+ to| Usenet |
|000003b0| 61 62 6f 75 74 20 61 20 | 79 65 61 72 20 61 67 6f |about a |year ago|
|000003c0| 20 2d 20 74 6f 20 74 68 | 65 20 41 54 26 54 20 33 | - to th|e AT&T 3|
|000003d0| 42 32 2f 34 30 30 20 72 | 75 6e 6e 69 6e 67 20 55 |B2/400 r|unning U|
|000003e0| 4e 49 58 20 53 79 73 74 | 65 6d 20 56 0a 58 2b 20 |NIX Syst|em V.X+ |
|000003f0| 52 65 6c 65 61 73 65 20 | 33 2e 30 2e 20 20 57 68 |Release |3.0. Wh|
|00000400| 61 74 20 66 6f 6c 6c 6f | 77 73 20 69 73 20 61 20 |at follo|ws is a |
|00000410| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 6f 66 20 73 |descript|ion of s|
|00000420| 6f 6d 65 20 6f 66 20 74 | 68 65 20 74 68 69 6e 67 |ome of t|he thing|
|00000430| 73 20 49 20 6e 65 65 64 | 65 64 0a 58 2b 20 74 6f |s I need|ed.X+ to|
|00000440| 20 63 68 61 6e 67 65 20 | 6a 75 73 74 20 74 6f 20 | change |just to |
|00000450| 67 65 74 20 69 74 20 72 | 75 6e 6e 69 6e 67 20 6f |get it r|unning o|
|00000460| 6e 20 6d 79 20 73 79 73 | 74 65 6d 2e 20 20 49 20 |n my sys|tem. I |
|00000470| 68 6f 70 65 20 79 6f 75 | 20 66 69 6e 64 20 69 74 |hope you| find it|
|00000480| 20 75 73 65 66 75 6c 2e | 0a 58 2b 20 54 68 65 20 | useful.|.X+ The |
|00000490| 62 61 73 65 20 70 61 74 | 63 68 20 6c 65 76 65 6c |base pat|ch level|
|000004a0| 20 49 20 77 6f 72 6b 65 | 64 20 66 72 6f 6d 20 77 | I worke|d from w|
|000004b0| 61 73 20 33 20 28 69 6e | 63 6c 75 64 69 6e 67 20 |as 3 (in|cluding |
|000004c0| 74 68 65 20 22 33 2e 31 | 22 20 70 61 74 63 68 29 |the "3.1|" patch)|
|000004d0| 2e 0a 58 2b 20 0a 58 2b | 20 31 2e 20 44 69 66 66 |..X+ .X+| 1. Diff|
|000004e0| 65 72 65 6e 74 20 46 37 | 37 20 43 6f 6d 70 69 6c |erent F7|7 Compil|
|000004f0| 61 74 69 6f 6e 20 53 79 | 73 74 65 6d 0a 58 2b 20 |ation Sy|stem.X+ |
|00000500| 46 69 72 73 74 20 6f 66 | 66 2c 20 74 68 69 73 20 |First of|f, this |
|00000510| 55 4e 49 58 20 73 79 73 | 74 65 6d 20 64 6f 65 73 |UNIX sys|tem does|
|00000520| 20 6e 6f 74 20 75 73 65 | 20 74 68 65 20 46 4f 52 | not use| the FOR|
|00000530| 54 52 41 4e 20 37 37 20 | 63 6f 6d 70 69 6c 65 72 |TRAN 77 |compiler|
|00000540| 20 61 6e 64 0a 58 2b 20 | 61 72 63 68 69 76 65 20 | and.X+ |archive |
|00000550| 6c 69 62 72 61 72 69 65 | 73 20 75 73 65 64 20 6f |librarie|s used o|
|00000560| 6e 20 70 72 65 76 69 6f | 75 73 20 76 65 72 73 69 |n previo|us versi|
|00000570| 6f 6e 73 20 6f 66 20 53 | 79 73 74 65 6d 20 56 2e |ons of S|ystem V.|
|00000580| 20 20 57 68 61 74 20 49 | 20 68 61 76 65 20 69 73 | What I| have is|
|00000590| 0a 58 2b 20 63 61 6c 6c | 65 64 20 46 4f 52 54 52 |.X+ call|ed FORTR|
|000005a0| 41 4e 20 37 37 20 58 4c | 41 2b 20 43 6f 6d 70 69 |AN 77 XL|A+ Compi|
|000005b0| 6c 61 74 69 6f 6e 20 53 | 79 73 74 65 6d 2c 20 49 |lation S|ystem, I|
|000005c0| 73 73 75 65 20 31 20 56 | 65 72 73 69 6f 6e 20 30 |ssue 1 V|ersion 0|
|000005d0| 2e 20 20 54 68 65 20 46 | 37 37 0a 58 2b 20 75 73 |. The F|77.X+ us|
|000005e0| 65 64 20 6f 6e 20 70 72 | 65 76 69 6f 75 73 20 55 |ed on pr|evious U|
|000005f0| 4e 49 58 20 6d 61 63 68 | 69 6e 65 73 20 69 73 20 |NIX mach|ines is |
|00000600| 73 6f 6d 65 74 69 6d 65 | 73 20 63 61 6c 6c 65 64 |sometime|s called|
|00000610| 20 66 37 37 20 31 2e 31 | 2e 20 20 54 68 69 73 20 | f77 1.1|. This |
|00000620| 64 69 66 66 65 72 65 6e | 63 65 0a 58 2b 20 72 65 |differen|ce.X+ re|
|00000630| 71 75 69 72 65 64 20 73 | 65 76 65 72 61 6c 20 63 |quired s|everal c|
|00000640| 68 61 6e 67 65 73 20 74 | 6f 20 4d 61 6b 65 66 69 |hanges t|o Makefi|
|00000650| 6c 65 2e 73 79 73 76 2e | 20 20 42 6f 74 68 20 74 |le.sysv.| Both t|
|00000660| 68 65 20 63 6f 6d 6d 61 | 6e 64 20 74 6f 20 69 6e |he comma|nd to in|
|00000670| 76 6f 6b 65 0a 58 2b 20 | 74 68 65 20 63 6f 6d 70 |voke.X+ |the comp|
|00000680| 69 6c 65 72 20 61 6e 64 | 20 6f 70 74 69 6f 6e 73 |iler and| options|
|00000690| 20 72 65 63 6f 67 6e 69 | 7a 65 64 20 62 79 20 74 | recogni|zed by t|
|000006a0| 68 65 20 63 6f 6d 70 69 | 6c 65 72 20 61 72 65 20 |he compi|ler are |
|000006b0| 64 69 66 66 65 72 65 6e | 74 2e 0a 58 2b 20 49 20 |differen|t..X+ I |
|000006c0| 68 61 76 65 20 6c 65 61 | 72 6e 65 64 20 74 68 61 |have lea|rned tha|
|000006d0| 74 20 74 68 65 72 65 20 | 69 73 20 61 20 6e 65 77 |t there |is a new|
|000006e0| 65 72 20 76 65 72 73 69 | 6f 6e 20 6f 66 20 46 37 |er versi|on of F7|
|000006f0| 37 2d 58 4c 41 2b 20 61 | 76 61 69 6c 61 62 6c 65 |7-XLA+ a|vailable|
|00000700| 20 66 72 6f 6d 0a 58 2b | 20 41 54 26 54 3b 20 73 | from.X+| AT&T; s|
|00000710| 6f 6d 65 20 6f 66 20 74 | 68 65 20 70 72 6f 62 6c |ome of t|he probl|
|00000720| 65 6d 73 20 49 20 6d 65 | 6e 74 69 6f 6e 20 62 65 |ems I me|ntion be|
|00000730| 6c 6f 77 20 6d 69 67 68 | 74 20 62 65 20 66 69 78 |low migh|t be fix|
|00000740| 65 64 20 69 6e 20 74 68 | 61 74 20 76 65 72 73 69 |ed in th|at versi|
|00000750| 6f 6e 2e 0a 58 2b 20 0a | 58 2b 20 32 2e 20 4e 6f |on..X+ .|X+ 2. No|
|00000760| 20 4c 4f 47 49 43 41 4c | 20 41 72 67 75 6d 65 6e | LOGICAL| Argumen|
|00000770| 74 73 20 74 6f 20 42 69 | 74 77 69 73 65 20 49 6e |ts to Bi|twise In|
|00000780| 74 72 69 6e 73 69 63 20 | 46 75 6e 63 74 69 6f 6e |trinsic |Function|
|00000790| 73 0a 58 2b 20 54 68 65 | 20 46 37 37 2d 58 4c 41 |s.X+ The| F77-XLA|
|000007a0| 2b 20 63 6f 6d 70 69 6c | 65 72 20 69 73 20 70 69 |+ compil|er is pi|
|000007b0| 63 6b 79 20 61 62 6f 75 | 74 20 4c 4f 47 49 43 41 |cky abou|t LOGICA|
|000007c0| 4c 20 74 79 70 65 20 61 | 72 67 75 6d 65 6e 74 73 |L type a|rguments|
|000007d0| 20 62 65 69 6e 67 20 70 | 61 73 73 65 64 0a 58 2b | being p|assed.X+|
|000007e0| 20 74 6f 20 74 68 65 20 | 69 6e 74 72 69 6e 73 69 | to the |intrinsi|
|000007f0| 63 20 62 69 74 77 69 73 | 65 20 28 49 4e 54 45 47 |c bitwis|e (INTEG|
|00000800| 45 52 29 20 66 75 6e 63 | 74 69 6f 6e 73 20 61 6e |ER) func|tions an|
|00000810| 64 28 29 2c 20 6f 72 28 | 29 2c 20 61 6e 64 20 6e |d(), or(|), and n|
|00000820| 6f 74 28 29 2e 20 20 54 | 68 69 73 0a 58 2b 20 77 |ot(). T|his.X+ w|
|00000830| 61 73 20 76 65 72 79 20 | 65 61 73 69 6c 79 20 66 |as very |easily f|
|00000840| 69 78 65 64 20 62 79 20 | 74 72 61 6e 73 6c 61 74 |ixed by |translat|
|00000850| 69 6e 67 20 74 6f 20 74 | 68 65 20 6c 6f 67 69 63 |ing to t|he logic|
|00000860| 61 6c 20 6f 70 65 72 61 | 74 6f 72 73 20 2e 41 4e |al opera|tors .AN|
|00000870| 44 2e 2c 20 2e 4f 52 2e | 2c 0a 58 2b 20 61 6e 64 |D., .OR.|,.X+ and|
|00000880| 20 2e 4e 4f 54 2e 2e 0a | 58 2b 20 0a 58 2b 20 33 | .NOT...|X+ .X+ 3|
|00000890| 2e 20 4e 6f 20 49 4e 54 | 45 47 45 52 20 41 72 67 |. No INT|EGER Arg|
|000008a0| 75 6d 65 6e 74 73 20 74 | 6f 20 69 63 68 61 72 28 |uments t|o ichar(|
|000008b0| 29 20 49 6e 74 72 69 6e | 73 69 63 20 46 75 6e 63 |) Intrin|sic Func|
|000008c0| 74 69 6f 6e 0a 58 2b 20 | 54 68 65 20 46 37 37 2d |tion.X+ |The F77-|
|000008d0| 58 4c 41 2b 20 63 6f 6d | 70 69 6c 65 72 20 69 73 |XLA+ com|piler is|
|000008e0| 20 70 69 63 6b 79 20 61 | 62 6f 75 74 20 49 4e 54 | picky a|bout INT|
|000008f0| 45 47 45 52 20 61 72 67 | 75 6d 65 6e 74 73 20 70 |EGER arg|uments p|
|00000900| 61 73 73 65 64 20 74 6f | 20 69 63 68 61 72 28 29 |assed to| ichar()|
|00000910| 2e 0a 58 2b 20 54 68 65 | 79 20 77 65 72 65 20 72 |..X+ The|y were r|
|00000920| 65 64 75 6e 64 61 6e 74 | 20 63 61 6c 6c 73 20 69 |edundant| calls i|
|00000930| 6e 20 61 6c 6c 20 63 61 | 73 65 73 20 49 20 66 6f |n all ca|ses I fo|
|00000940| 75 6e 64 2e 20 20 28 4a | 75 73 74 20 74 68 65 20 |und. (J|ust the |
|00000950| 49 4e 57 28 29 20 61 6e | 64 20 55 49 4e 57 28 29 |INW() an|d UINW()|
|00000960| 0a 58 2b 20 61 72 72 61 | 79 73 20 77 65 72 65 20 |.X+ arra|ys were |
|00000970| 69 6e 76 6f 6c 76 65 64 | 2e 29 0a 58 2b 20 0a 58 |involved|.).X+ .X|
|00000980| 2b 20 34 2e 20 4e 6f 20 | 24 20 45 64 69 74 20 44 |+ 4. No |$ Edit D|
|00000990| 65 73 63 72 69 70 74 6f | 72 20 69 6e 20 46 4f 52 |escripto|r in FOR|
|000009a0| 4d 41 54 20 53 74 61 74 | 65 6d 65 6e 74 73 0a 58 |MAT Stat|ements.X|
|000009b0| 2b 20 54 68 65 20 46 37 | 37 2d 58 4c 41 2b 20 63 |+ The F7|7-XLA+ c|
|000009c0| 6f 6d 70 69 6c 65 72 20 | 64 6f 65 73 20 6e 6f 74 |ompiler |does not|
|000009d0| 20 72 65 63 6f 67 6e 69 | 7a 65 20 74 68 65 20 24 | recogni|ze the $|
|000009e0| 20 69 6e 20 46 4f 52 4d | 41 54 20 73 74 61 74 65 | in FORM|AT state|
|000009f0| 6d 65 6e 74 73 20 61 73 | 20 61 0a 58 2b 20 6d 65 |ments as| a.X+ me|
|00000a00| 61 6e 73 20 6f 66 20 73 | 75 70 70 72 65 73 73 69 |ans of s|uppressi|
|00000a10| 6e 67 20 6e 65 77 6c 69 | 6e 65 20 61 74 20 74 68 |ng newli|ne at th|
|00000a20| 65 20 65 6e 64 20 6f 66 | 20 61 6e 20 6f 75 74 70 |e end of| an outp|
|00000a30| 75 74 20 6f 70 65 72 61 | 74 69 6f 6e 2e 20 20 54 |ut opera|tion. T|
|00000a40| 68 69 73 20 77 61 73 0a | 58 2b 20 61 70 70 61 72 |his was.|X+ appar|
|00000a50| 65 6e 74 6c 79 20 6e 6f | 74 20 61 6e 20 6f 76 65 |ently no|t an ove|
|00000a60| 72 73 69 67 68 74 3b 20 | 74 68 65 79 20 64 6f 63 |rsight; |they doc|
|00000a70| 75 6d 65 6e 74 65 64 20 | 69 74 73 20 61 62 73 65 |umented |its abse|
|00000a80| 6e 63 65 2e 20 20 49 20 | 68 61 76 65 20 66 6f 75 |nce. I |have fou|
|00000a90| 6e 64 20 73 6f 6d 65 0a | 58 2b 20 76 65 73 74 69 |nd some.|X+ vesti|
|00000aa0| 67 65 73 20 6f 66 20 74 | 68 65 20 63 6f 64 65 20 |ges of t|he code |
|00000ab0| 77 68 69 63 68 20 77 6f | 75 6c 64 20 68 61 76 65 |which wo|uld have|
|00000ac0| 20 69 6d 70 6c 65 6d 65 | 6e 74 65 64 20 69 74 20 | impleme|nted it |
|00000ad0| 28 65 2e 67 2e 20 61 6e | 20 65 78 74 65 72 6e 61 |(e.g. an| externa|
|00000ae0| 6c 20 73 79 6d 62 6f 6c | 0a 58 2b 20 69 6e 20 74 |l symbol|.X+ in t|
|00000af0| 68 65 20 49 2f 4f 20 6c | 69 62 72 61 72 79 20 63 |he I/O l|ibrary c|
|00000b00| 61 6c 6c 65 64 20 22 46 | 37 37 6e 6f 6e 6c 22 29 |alled "F|77nonl")|
|00000b10| 20 62 75 74 20 74 68 65 | 20 63 61 70 61 62 69 6c | but the| capabil|
|00000b20| 69 74 79 20 69 73 20 6a | 75 73 74 20 6e 6f 74 20 |ity is j|ust not |
|00000b30| 74 68 65 72 65 2e 0a 58 | 2b 20 49 20 63 61 6e 20 |there..X|+ I can |
|00000b40| 66 69 6e 64 20 6e 6f 20 | 73 75 62 73 74 69 74 75 |find no |substitu|
|00000b50| 74 65 20 61 6e 64 20 68 | 61 76 65 20 62 65 65 6e |te and h|ave been|
|00000b60| 20 70 75 74 74 69 6e 67 | 20 75 70 20 77 69 74 68 | putting| up with|
|00000b70| 20 68 61 76 69 6e 67 20 | 6d 79 20 22 3e 22 20 67 | having |my ">" g|
|00000b80| 61 6d 65 0a 58 2b 20 70 | 72 6f 6d 70 74 20 6e 6f |ame.X+ p|rompt no|
|00000b90| 74 20 61 70 70 65 61 72 | 20 6f 6e 20 74 68 65 20 |t appear| on the |
|00000ba0| 73 61 6d 65 20 6c 69 6e | 65 20 61 73 20 6d 79 20 |same lin|e as my |
|00000bb0| 69 6e 70 75 74 2e 0a 58 | 2b 20 0a 58 2b 20 35 2e |input..X|+ .X+ 5.|
|00000bc0| 20 46 55 4e 43 54 49 4f | 4e 20 49 4e 49 54 28 29 | FUNCTIO|N INIT()|
|00000bd0| 20 4e 61 6d 65 20 43 6f | 6e 66 6c 69 63 74 0a 58 | Name Co|nflict.X|
|00000be0| 2b 20 54 68 65 20 65 78 | 74 65 72 6e 61 6c 20 73 |+ The ex|ternal s|
|00000bf0| 79 6d 62 6f 6c 20 22 69 | 6e 69 74 22 20 69 73 20 |ymbol "i|nit" is |
|00000c00| 75 73 65 64 20 69 6e 20 | 74 68 65 20 46 37 37 2d |used in |the F77-|
|00000c10| 58 4c 41 2b 20 49 2f 4f | 20 6c 69 62 72 61 72 79 |XLA+ I/O| library|
|00000c20| 20 6c 69 62 66 6f 72 74 | 49 37 37 2e 61 0a 58 2b | libfort|I77.a.X+|
|00000c30| 20 74 6f 20 69 6e 64 69 | 63 61 74 65 20 77 68 65 | to indi|cate whe|
|00000c40| 74 68 65 72 20 6f 72 20 | 6e 6f 74 20 69 74 20 68 |ther or |not it h|
|00000c50| 61 73 20 62 65 65 6e 20 | 69 6e 69 74 69 61 6c 69 |as been |initiali|
|00000c60| 7a 65 64 20 69 6e 20 74 | 68 65 20 63 75 72 72 65 |zed in t|he curre|
|00000c70| 6e 74 20 70 72 6f 63 65 | 73 73 2e 0a 58 2b 20 49 |nt proce|ss..X+ I|
|00000c80| 20 6d 65 72 65 6c 79 20 | 63 68 61 6e 67 65 64 20 | merely |changed |
|00000c90| 74 68 65 20 44 75 6e 67 | 65 6f 6e 20 66 75 6e 63 |the Dung|eon func|
|00000ca0| 74 69 6f 6e 20 6e 61 6d | 65 20 74 6f 20 44 49 4e |tion nam|e to DIN|
|00000cb0| 49 54 2e 0a 58 2b 20 0a | 58 2b 20 36 2e 20 43 4c |IT..X+ .|X+ 6. CL|
|00000cc0| 4f 53 45 28 29 20 77 69 | 74 68 20 4c 6f 6e 67 20 |OSE() wi|th Long |
|00000cd0| 46 69 6c 65 6e 61 6d 65 | 20 43 61 75 73 65 73 20 |Filename| Causes |
|00000ce0| 46 61 74 61 6c 20 52 75 | 6e 2d 74 69 6d 65 20 45 |Fatal Ru|n-time E|
|00000cf0| 72 72 6f 72 73 0a 58 2b | 20 54 68 65 72 65 20 69 |rrors.X+| There i|
|00000d00| 73 20 61 20 62 75 67 20 | 69 6e 20 74 68 65 20 46 |s a bug |in the F|
|00000d10| 37 37 2d 58 4c 41 2b 20 | 49 2f 4f 20 6c 69 62 72 |77-XLA+ |I/O libr|
|00000d20| 61 72 79 20 6c 69 62 66 | 6f 72 74 49 37 37 2e 61 |ary libf|ortI77.a|
|00000d30| 20 74 68 61 74 20 6f 63 | 63 75 72 73 20 77 68 65 | that oc|curs whe|
|00000d40| 6e 0a 58 2b 20 74 72 79 | 69 6e 67 20 74 6f 20 43 |n.X+ try|ing to C|
|00000d50| 4c 4f 53 45 28 29 20 61 | 20 75 6e 69 74 20 74 68 |LOSE() a| unit th|
|00000d60| 61 74 20 68 61 64 20 62 | 65 65 6e 20 4f 50 45 4e |at had b|een OPEN|
|00000d70| 65 64 20 74 6f 20 61 20 | 55 4e 49 58 20 66 69 6c |ed to a |UNIX fil|
|00000d80| 65 20 77 69 74 68 20 61 | 20 6c 6f 6e 67 0a 58 2b |e with a| long.X+|
|00000d90| 20 70 61 74 68 6e 61 6d | 65 2e 20 20 54 68 69 6e | pathnam|e. Thin|
|00000da0| 6b 20 6f 66 20 74 68 65 | 20 46 37 37 20 49 2f 4f |k of the| F77 I/O|
|00000db0| 20 73 75 62 73 79 73 74 | 65 6d 20 61 73 20 6f 76 | subsyst|em as ov|
|00000dc0| 65 72 6c 79 69 6e 67 20 | 74 68 65 20 73 74 61 6e |erlying |the stan|
|00000dd0| 64 61 72 64 20 49 2f 4f | 0a 58 2b 20 28 73 74 64 |dard I/O|.X+ (std|
|00000de0| 69 6f 29 20 73 75 62 73 | 79 73 74 65 6d 2e 20 20 |io) subs|ystem. |
|00000df0| 41 20 46 37 37 20 4f 50 | 45 4e 20 65 76 65 6e 74 |A F77 OP|EN event|
|00000e00| 75 61 6c 6c 79 20 63 61 | 6c 6c 73 20 66 6f 70 65 |ually ca|lls fope|
|00000e10| 6e 28 33 53 29 20 5b 33 | 53 3a 20 69 6e 20 74 68 |n(3S) [3|S: in th|
|00000e20| 65 20 73 74 64 69 6f 0a | 58 2b 20 6c 69 62 72 61 |e stdio.|X+ libra|
|00000e30| 72 79 5d 20 61 6e 64 20 | 73 74 6f 72 65 73 20 74 |ry] and |stores t|
|00000e40| 68 65 20 46 49 4c 45 20 | 2a 20 70 6f 69 6e 74 65 |he FILE |* pointe|
|00000e50| 72 20 77 68 69 63 68 20 | 66 6f 70 65 6e 20 72 65 |r which |fopen re|
|00000e60| 74 75 72 6e 73 20 69 6e | 74 6f 20 61 6e 20 65 6c |turns in|to an el|
|00000e70| 65 6d 65 6e 74 0a 58 2b | 20 6f 66 20 61 6e 20 61 |ement.X+| of an a|
|00000e80| 72 72 61 79 20 6f 66 20 | 73 74 72 75 63 74 75 72 |rray of |structur|
|00000e90| 65 73 20 63 6f 72 72 65 | 73 70 6f 6e 64 69 6e 67 |es corre|sponding|
|00000ea0| 20 74 6f 20 74 68 65 20 | 75 6e 69 74 20 6e 75 6d | to the |unit num|
|00000eb0| 62 65 72 20 4f 50 45 4e | 65 64 2e 20 20 57 68 65 |ber OPEN|ed. Whe|
|00000ec0| 6e 0a 58 2b 20 74 68 65 | 20 75 6e 69 74 20 69 73 |n.X+ the| unit is|
|00000ed0| 20 43 4c 4f 53 45 64 2c | 20 74 68 65 20 66 69 6c | CLOSEd,| the fil|
|00000ee0| 65 20 6e 61 6d 65 20 70 | 61 73 73 65 64 20 74 6f |e name p|assed to|
|00000ef0| 20 4f 50 45 4e 20 69 73 | 20 63 6f 70 69 65 64 20 | OPEN is| copied |
|00000f00| 69 6e 74 6f 20 61 20 63 | 68 61 72 61 63 74 65 72 |into a c|haracter|
|00000f10| 0a 58 2b 20 61 72 72 61 | 79 20 77 69 74 68 69 6e |.X+ arra|y within|
|00000f20| 20 74 68 69 73 20 73 61 | 6d 65 20 73 74 72 75 63 | this sa|me struc|
|00000f30| 74 75 72 65 2c 20 75 73 | 69 6e 67 20 73 74 72 63 |ture, us|ing strc|
|00000f40| 70 79 28 33 43 29 20 5b | 33 43 3a 20 69 6e 20 74 |py(3C) [|3C: in t|
|00000f50| 68 65 20 43 20 6c 69 62 | 72 61 72 79 5d 2e 0a 58 |he C lib|rary]..X|
|00000f60| 2b 20 28 49 20 61 73 73 | 75 6d 65 20 74 68 69 73 |+ (I ass|ume this|
|00000f70| 20 69 73 20 74 6f 20 61 | 6c 6c 6f 77 20 66 75 74 | is to a|llow fut|
|00000f80| 75 72 65 20 72 65 4f 50 | 45 4e 69 6e 67 20 6f 66 |ure reOP|ENing of|
|00000f90| 20 74 68 65 20 66 69 6c | 65 2c 20 62 75 74 20 68 | the fil|e, but h|
|00000fa0| 61 76 65 6e 27 74 20 72 | 65 61 6c 6c 79 0a 58 2b |aven't r|eally.X+|
|00000fb0| 20 6c 6f 6f 6b 65 64 20 | 69 6e 74 6f 20 74 68 69 | looked |into thi|
|00000fc0| 73 20 6d 75 63 68 2e 29 | 20 20 4e 6f 20 62 6f 75 |s much.)| No bou|
|00000fd0| 6e 64 73 20 6f 72 20 73 | 74 72 69 6e 67 20 6c 65 |nds or s|tring le|
|00000fe0| 6e 67 74 68 20 63 68 65 | 63 6b 69 6e 67 20 69 73 |ngth che|cking is|
|00000ff0| 20 64 6f 6e 65 2e 20 20 | 53 6f 0a 58 2b 20 77 68 | done. |So.X+ wh|
|00001000| 65 6e 20 74 68 65 20 66 | 69 6c 65 6e 61 6d 65 20 |en the f|ilename |
|00001010| 69 73 20 6c 6f 6e 67 20 | 28 61 73 20 6d 69 67 68 |is long |(as migh|
|00001020| 74 20 62 65 20 65 78 70 | 65 63 74 65 64 20 66 6f |t be exp|ected fo|
|00001030| 72 20 49 4e 44 58 46 49 | 4c 45 20 6f 72 20 54 45 |r INDXFI|LE or TE|
|00001040| 58 54 46 49 4c 45 29 2c | 0a 58 2b 20 74 68 69 73 |XTFILE),|.X+ this|
|00001050| 20 6f 76 65 72 77 72 69 | 74 65 73 20 74 68 65 20 | overwri|tes the |
|00001060| 6e 65 78 74 20 46 37 37 | 20 49 2f 4f 20 75 6e 69 |next F77| I/O uni|
|00001070| 74 20 73 74 72 75 63 74 | 75 72 65 20 77 69 74 68 |t struct|ure with|
|00001080| 20 67 61 72 62 61 67 65 | 2e 20 20 49 66 20 74 68 | garbage|. If th|
|00001090| 65 20 6e 65 78 74 0a 58 | 2b 20 75 6e 69 74 20 77 |e next.X|+ unit w|
|000010a0| 61 73 20 62 65 69 6e 67 | 20 75 73 65 64 2c 20 74 |as being| used, t|
|000010b0| 68 65 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 74 68 |he point|er to th|
|000010c0| 65 20 63 6f 72 72 65 73 | 70 6f 6e 64 69 6e 67 20 |e corres|ponding |
|000010d0| 73 74 64 69 6f 20 73 74 | 72 75 63 74 75 72 65 20 |stdio st|ructure |
|000010e0| 69 73 20 6e 6f 77 0a 58 | 2b 20 67 6f 6e 65 2e 20 |is now.X|+ gone. |
|000010f0| 20 49 66 20 6e 6f 74 2c | 20 74 68 65 20 6e 65 78 | If not,| the nex|
|00001100| 74 20 75 6e 69 74 20 6e | 6f 77 20 61 70 70 65 61 |t unit n|ow appea|
|00001110| 72 73 20 74 6f 20 62 65 | 20 69 6e 20 75 73 65 20 |rs to be| in use |
|00001120| 62 65 63 61 75 73 65 20 | 74 68 65 20 46 49 4c 45 |because |the FILE|
|00001130| 20 2a 0a 58 2b 20 69 73 | 20 6e 6f 20 6c 6f 6e 67 | *.X+ is| no long|
|00001140| 65 72 20 61 20 4e 55 4c | 4c 20 70 6f 69 6e 74 65 |er a NUL|L pointe|
|00001150| 72 20 61 6e 64 20 77 68 | 65 6e 20 74 68 65 20 46 |r and wh|en the F|
|00001160| 37 37 20 63 6f 64 65 20 | 65 78 69 74 73 20 6e 6f |77 code |exits no|
|00001170| 72 6d 61 6c 6c 79 20 28 | 65 2e 67 2e 0a 58 2b 20 |rmally (|e.g..X+ |
|00001180| 74 68 72 6f 75 67 68 20 | 53 54 4f 50 29 20 69 74 |through |STOP) it|
|00001190| 20 77 69 6c 6c 20 74 72 | 79 20 74 6f 20 63 6c 65 | will tr|y to cle|
|000011a0| 61 6e 20 75 70 20 74 68 | 69 73 20 75 6e 69 74 2e |an up th|is unit.|
|000011b0| 20 20 54 68 65 73 65 20 | 63 6f 6e 73 69 64 65 72 | These |consider|
|000011c0| 61 74 69 6f 6e 73 0a 58 | 2b 20 6c 65 64 20 6d 65 |ations.X|+ led me|
|000011d0| 20 74 6f 20 6d 61 6b 65 | 20 74 68 65 20 66 6f 6c | to make| the fol|
|000011e0| 6c 6f 77 69 6e 67 20 63 | 68 61 6e 67 65 73 3a 0a |lowing c|hanges:.|
|000011f0| 58 2b 20 0a 58 2b 20 09 | 53 69 6e 63 65 20 49 4e |X+ .X+ .|Since IN|
|00001200| 44 58 46 49 4c 45 20 61 | 6e 64 20 54 45 58 54 46 |DXFILE a|nd TEXTF|
|00001210| 49 4c 45 20 63 6f 75 6c | 64 20 6e 6f 74 20 62 65 |ILE coul|d not be|
|00001220| 20 43 4c 4f 53 45 64 20 | 6f 6e 63 65 20 4f 50 45 | CLOSEd |once OPE|
|00001230| 4e 65 64 2c 20 49 0a 58 | 2b 20 09 6d 6f 76 65 64 |Ned, I.X|+ .moved|
|00001240| 20 49 4e 44 58 46 49 4c | 45 20 66 72 6f 6d 20 75 | INDXFIL|E from u|
|00001250| 6e 69 74 20 31 20 74 6f | 20 75 6e 69 74 20 33 2e |nit 1 to| unit 3.|
|00001260| 20 20 55 6e 69 74 20 31 | 20 69 73 20 6e 6f 77 20 | Unit 1| is now |
|00001270| 75 73 65 64 20 6f 6e 6c | 79 0a 58 2b 20 09 66 6f |used onl|y.X+ .fo|
|00001280| 72 20 22 64 73 61 76 65 | 2e 64 61 74 22 2c 20 77 |r "dsave|.dat", w|
|00001290| 68 69 63 68 20 69 73 20 | 73 68 6f 72 74 20 65 6e |hich is |short en|
|000012a0| 6f 75 67 68 20 74 68 61 | 74 20 69 74 20 63 61 6e |ough tha|t it can|
|000012b0| 20 62 65 20 63 6c 6f 73 | 65 64 20 61 6e 64 0a 58 | be clos|ed and.X|
|000012c0| 2b 20 09 6f 70 65 6e 65 | 64 20 6e 6f 72 6d 61 6c |+ .opene|d normal|
|000012d0| 6c 79 2e 20 20 54 45 58 | 54 46 49 4c 45 20 72 65 |ly. TEX|TFILE re|
|000012e0| 6d 61 69 6e 73 20 61 74 | 20 75 6e 69 74 20 32 2e |mains at| unit 2.|
|000012f0| 0a 58 2b 20 0a 58 2b 20 | 09 49 20 64 72 6f 70 70 |.X+ .X+ |.I dropp|
|00001300| 65 64 20 6d 79 20 65 78 | 69 74 2e 46 20 73 6f 75 |ed my ex|it.F sou|
|00001310| 72 63 65 20 66 69 6c 65 | 20 63 6f 6e 74 61 69 6e |rce file| contain|
|00001320| 69 6e 67 20 53 55 42 52 | 4f 55 54 49 4e 45 20 45 |ing SUBR|OUTINE E|
|00001330| 58 49 54 20 28 77 68 69 | 63 68 0a 58 2b 20 09 63 |XIT (whi|ch.X+ .c|
|00001340| 6f 6e 73 69 73 74 65 64 | 20 65 6e 74 69 72 65 6c |onsisted| entirel|
|00001350| 79 20 6f 66 20 6f 6e 65 | 20 65 78 65 63 75 74 61 |y of one| executa|
|00001360| 62 6c 65 20 73 74 61 74 | 65 6d 65 6e 74 2c 20 53 |ble stat|ement, S|
|00001370| 54 4f 50 29 20 61 6e 64 | 20 72 65 70 6c 61 63 65 |TOP) and| replace|
|00001380| 64 0a 58 2b 20 09 69 74 | 20 77 69 74 68 20 65 78 |d.X+ .it| with ex|
|00001390| 69 74 2e 63 20 63 6f 6e | 74 61 69 6e 69 6e 67 20 |it.c con|taining |
|000013a0| 74 68 65 20 43 20 66 75 | 6e 63 74 69 6f 6e 20 76 |the C fu|nction v|
|000013b0| 6f 69 64 20 65 78 69 74 | 5f 28 29 2e 20 20 53 69 |oid exit|_(). Si|
|000013c0| 6e 63 65 20 53 54 4f 50 | 0a 58 2b 20 09 74 72 69 |nce STOP|.X+ .tri|
|000013d0| 65 73 20 74 6f 20 63 6c | 65 61 6e 20 75 70 20 46 |es to cl|ean up F|
|000013e0| 37 37 20 49 2f 4f 20 75 | 6e 69 74 20 73 74 72 75 |77 I/O u|nit stru|
|000013f0| 63 74 75 72 65 73 20 74 | 68 61 74 20 68 61 76 65 |ctures t|hat have|
|00001400| 20 62 65 65 6e 20 4f 50 | 45 4e 65 64 2c 0a 58 2b | been OP|ENed,.X+|
|00001410| 20 09 49 20 63 69 72 63 | 75 6d 76 65 6e 74 20 74 | .I circ|umvent t|
|00001420| 68 69 73 20 62 79 20 64 | 6f 69 6e 67 20 61 20 43 |his by d|oing a C|
|00001430| 41 4c 4c 20 45 58 49 54 | 20 69 6e 20 46 37 37 20 |ALL EXIT| in F77 |
|00001440| 77 68 69 63 68 20 69 6e | 76 6f 6b 65 73 20 74 68 |which in|vokes th|
|00001450| 65 0a 58 2b 20 09 43 20 | 66 75 6e 63 74 69 6f 6e |e.X+ .C |function|
|00001460| 20 65 78 69 74 5f 28 29 | 20 6f 6e 20 6d 79 20 73 | exit_()| on my s|
|00001470| 79 73 74 65 6d 2e 20 20 | 54 68 65 20 6c 61 74 74 |ystem. |The latt|
|00001480| 65 72 20 66 75 6e 63 74 | 69 6f 6e 20 73 69 6d 70 |er funct|ion simp|
|00001490| 6c 79 20 63 61 6c 6c 73 | 0a 58 2b 20 09 65 78 69 |ly calls|.X+ .exi|
|000014a0| 74 28 29 20 69 6e 20 74 | 68 65 20 43 2f 73 74 64 |t() in t|he C/std|
|000014b0| 69 6f 20 6c 69 62 72 61 | 72 79 2c 20 63 6c 65 61 |io libra|ry, clea|
|000014c0| 6e 73 20 75 70 20 74 68 | 65 20 73 74 64 69 6f 20 |ns up th|e stdio |
|000014d0| 73 74 72 75 63 74 75 72 | 65 73 20 61 6e 64 0a 58 |structur|es and.X|
|000014e0| 2b 20 09 74 65 72 6d 69 | 6e 61 74 65 73 20 74 68 |+ .termi|nates th|
|000014f0| 65 20 70 72 6f 63 65 73 | 73 20 77 69 74 68 6f 75 |e proces|s withou|
|00001500| 74 20 6d 75 63 6b 69 6e | 67 20 77 69 74 68 20 74 |t muckin|g with t|
|00001510| 68 65 20 73 63 72 65 77 | 79 20 46 37 37 20 49 2f |he screw|y F77 I/|
|00001520| 4f 0a 58 2b 20 09 73 75 | 62 73 79 73 74 65 6d 2e |O.X+ .su|bsystem.|
|00001530| 0a 58 2b 20 0a 58 2b 20 | 37 2e 20 43 48 41 52 41 |.X+ .X+ |7. CHARA|
|00001540| 43 54 45 52 20 41 72 67 | 75 6d 65 6e 74 73 20 50 |CTER Arg|uments P|
|00001550| 61 73 73 65 64 20 49 6e | 63 6f 6e 73 69 73 74 65 |assed In|consiste|
|00001560| 6e 74 6c 79 0a 58 2b 20 | 54 68 65 20 46 37 37 2d |ntly.X+ |The F77-|
|00001570| 58 4c 41 2b 20 64 6f 63 | 75 6d 65 6e 74 61 74 69 |XLA+ doc|umentati|
|00001580| 6f 6e 20 69 6e 64 69 63 | 61 74 65 73 20 74 68 61 |on indic|ates tha|
|00001590| 74 20 61 20 43 48 41 52 | 41 43 54 45 52 20 76 61 |t a CHAR|ACTER va|
|000015a0| 72 69 61 62 6c 65 20 28 | 6f 72 20 61 6e 0a 58 2b |riable (|or an.X+|
|000015b0| 20 61 72 72 61 79 20 6f | 66 20 43 48 41 52 41 43 | array o|f CHARAC|
|000015c0| 54 45 52 20 76 61 72 69 | 61 62 6c 65 73 29 20 69 |TER vari|ables) i|
|000015d0| 73 20 6e 6f 74 20 71 75 | 69 74 65 20 70 61 73 73 |s not qu|ite pass|
|000015e0| 65 64 20 62 79 20 72 65 | 66 65 72 65 6e 63 65 2e |ed by re|ference.|
|000015f0| 20 20 49 6e 73 74 65 61 | 64 0a 58 2b 20 6f 66 20 | Instea|d.X+ of |
|00001600| 6a 75 73 74 20 70 61 73 | 73 69 6e 67 20 74 68 65 |just pas|sing the|
|00001610| 20 61 64 64 72 65 73 73 | 20 6f 66 20 74 68 65 20 | address| of the |
|00001620| 76 61 72 69 61 62 6c 65 | 20 28 6f 72 20 62 61 73 |variable| (or bas|
|00001630| 65 20 61 64 64 72 65 73 | 73 20 6f 66 20 74 68 65 |e addres|s of the|
|00001640| 20 61 72 72 61 79 29 2c | 0a 58 2b 20 65 66 66 65 | array),|.X+ effe|
|00001650| 63 74 69 76 65 6c 79 20 | 77 68 61 74 20 69 73 20 |ctively |what is |
|00001660| 70 61 73 73 65 64 20 69 | 73 20 61 20 70 6f 69 6e |passed i|s a poin|
|00001670| 74 65 72 20 74 6f 20 61 | 20 73 74 72 75 63 74 75 |ter to a| structu|
|00001680| 72 65 20 63 6f 6e 74 61 | 69 6e 69 6e 67 20 28 69 |re conta|ining (i|
|00001690| 6e 20 43 29 3a 0a 58 2b | 20 73 74 72 75 63 74 20 |n C):.X+| struct |
|000016a0| 7b 20 63 68 61 72 20 2a | 73 3b 20 6c 6f 6e 67 20 |{ char *|s; long |
|000016b0| 6c 3b 20 7d 20 77 68 65 | 72 65 20 73 20 69 73 20 |l; } whe|re s is |
|000016c0| 74 68 65 20 70 6f 69 6e | 74 65 72 20 74 6f 20 74 |the poin|ter to t|
|000016d0| 68 65 20 43 48 41 52 41 | 43 54 45 52 20 76 61 72 |he CHARA|CTER var|
|000016e0| 69 61 62 6c 65 0a 58 2b | 20 28 6f 72 20 61 72 72 |iable.X+| (or arr|
|000016f0| 61 79 29 20 61 6e 64 20 | 6c 20 69 73 20 69 74 73 |ay) and |l is its|
|00001700| 20 6c 65 6e 67 74 68 2e | 20 20 53 6f 20 64 65 72 | length.| So der|
|00001710| 65 66 65 72 65 6e 63 69 | 6e 67 20 74 68 65 20 70 |eferenci|ng the p|
|00001720| 61 73 73 65 64 20 70 6f | 69 6e 74 65 72 20 6f 6e |assed po|inter on|
|00001730| 63 65 0a 58 2b 20 77 69 | 6c 6c 20 67 69 76 65 20 |ce.X+ wi|ll give |
|00001740| 79 6f 75 20 73 2c 20 74 | 68 65 20 61 64 64 72 65 |you s, t|he addre|
|00001750| 73 73 20 6f 66 20 74 68 | 65 20 43 48 41 52 41 43 |ss of th|e CHARAC|
|00001760| 54 45 52 20 76 61 72 69 | 61 62 6c 65 2e 20 20 41 |TER vari|able. A|
|00001770| 6c 6c 20 66 69 6e 65 20 | 61 6e 64 20 64 61 6e 64 |ll fine |and dand|
|00001780| 79 2c 0a 58 2b 20 62 75 | 74 20 74 68 65 79 20 44 |y,.X+ bu|t they D|
|00001790| 49 44 4e 27 54 20 54 45 | 4c 4c 20 54 48 45 20 50 |IDN'T TE|LL THE P|
|000017a0| 45 4f 50 4c 45 20 57 48 | 4f 20 43 4f 44 45 44 20 |EOPLE WH|O CODED |
|000017b0| 54 48 45 20 49 2f 4f 20 | 4c 49 42 52 41 52 59 21 |THE I/O |LIBRARY!|
|000017c0| 20 20 57 68 65 6e 20 61 | 20 43 48 41 52 41 43 54 | When a| CHARACT|
|000017d0| 45 52 0a 58 2b 20 61 72 | 72 61 79 20 69 73 20 70 |ER.X+ ar|ray is p|
|000017e0| 61 73 73 65 64 20 74 6f | 20 52 45 41 44 28 29 2c |assed to| READ(),|
|000017f0| 20 69 74 20 69 6e 74 65 | 72 70 72 65 74 73 20 74 | it inte|rprets t|
|00001800| 68 65 20 73 74 72 75 63 | 74 75 72 65 20 70 6f 69 |he struc|ture poi|
|00001810| 6e 74 65 72 20 70 61 73 | 73 65 64 20 61 73 20 74 |nter pas|sed as t|
|00001820| 68 65 0a 58 2b 20 61 64 | 64 72 65 73 73 20 6f 66 |he.X+ ad|dress of|
|00001830| 20 74 68 65 20 76 61 72 | 69 61 62 6c 65 20 61 6e | the var|iable an|
|00001840| 64 20 73 74 61 72 74 73 | 20 6f 76 65 72 77 72 69 |d starts| overwri|
|00001850| 74 69 6e 67 20 74 68 65 | 20 77 72 6f 6e 67 20 70 |ting the| wrong p|
|00001860| 6c 61 63 65 2e 20 20 54 | 68 65 20 6f 6e 65 20 70 |lace. T|he one p|
|00001870| 6c 61 63 65 0a 58 2b 20 | 49 20 66 6f 75 6e 64 20 |lace.X+ |I found |
|00001880| 74 68 69 73 20 77 61 73 | 20 69 6e 20 52 44 4c 49 |this was| in RDLI|
|00001890| 4e 45 28 29 20 61 6e 64 | 20 49 20 66 69 78 65 64 |NE() and| I fixed|
|000018a0| 20 69 74 20 62 79 20 63 | 68 61 6e 67 69 6e 67 20 | it by c|hanging |
|000018b0| 74 68 65 20 52 45 41 44 | 28 29 20 42 55 46 46 45 |the READ|() BUFFE|
|000018c0| 52 20 74 6f 0a 58 2b 20 | 75 73 65 20 61 6e 20 69 |R to.X+ |use an i|
|000018d0| 6d 70 6c 69 65 64 20 44 | 4f 20 6c 6f 6f 70 2e 20 |mplied D|O loop. |
|000018e0| 20 57 68 61 74 20 63 61 | 6e 20 49 20 73 61 79 2c | What ca|n I say,|
|000018f0| 20 61 74 20 6c 65 61 73 | 74 20 69 74 20 77 6f 72 | at leas|t it wor|
|00001900| 6b 73 2e 0a 58 2b 20 0a | 58 2b 20 38 2e 20 4c 61 |ks..X+ .|X+ 8. La|
|00001910| 72 67 65 20 41 6d 6f 75 | 6e 74 73 20 6f 66 20 49 |rge Amou|nts of I|
|00001920| 2f 4f 20 69 6e 20 4f 6e | 65 20 53 74 61 74 65 6d |/O in On|e Statem|
|00001930| 65 6e 74 20 46 61 69 6c | 0a 58 2b 20 54 68 65 72 |ent Fail|.X+ Ther|
|00001940| 65 20 61 70 70 65 61 72 | 73 20 74 6f 20 62 65 20 |e appear|s to be |
|00001950| 73 6f 6d 65 20 6e 6f 74 | 20 65 61 73 69 6c 79 20 |some not| easily |
|00001960| 69 64 65 6e 74 69 66 69 | 61 62 6c 65 20 62 75 67 |identifi|able bug|
|00001970| 20 69 6e 20 74 68 65 20 | 46 37 37 2d 58 4c 41 2b | in the |F77-XLA+|
|00001980| 20 49 2f 4f 0a 58 2b 20 | 6c 69 62 72 61 72 79 20 | I/O.X+ |library |
|00001990| 77 68 69 63 68 20 63 61 | 75 73 65 73 20 69 74 20 |which ca|uses it |
|000019a0| 74 6f 20 61 62 6f 72 74 | 20 77 68 65 6e 20 77 72 |to abort| when wr|
|000019b0| 69 74 69 6e 67 20 6c 61 | 72 67 65 20 61 6d 6f 75 |iting la|rge amou|
|000019c0| 6e 74 73 20 6f 66 20 64 | 61 74 61 20 69 6e 0a 58 |nts of d|ata in.X|
|000019d0| 2b 20 6f 6e 65 20 73 69 | 6e 67 6c 65 20 57 52 49 |+ one si|ngle WRI|
|000019e0| 54 45 28 29 2e 20 20 49 | 20 66 6f 75 6e 64 20 74 |TE(). I| found t|
|000019f0| 68 69 73 20 77 68 65 6e | 20 61 74 74 65 6d 70 74 |his when| attempt|
|00001a00| 69 6e 67 20 74 6f 20 73 | 61 76 65 20 74 68 65 20 |ing to s|ave the |
|00001a10| 67 61 6d 65 20 69 6e 0a | 58 2b 20 64 73 61 76 65 |game in.|X+ dsave|
|00001a20| 2e 64 61 74 2e 20 20 49 | 20 73 65 70 61 72 61 74 |.dat. I| separat|
|00001a30| 65 64 20 74 68 65 20 6c | 61 72 67 65 73 74 20 61 |ed the l|argest a|
|00001a40| 72 72 61 79 73 20 28 6e | 6f 74 61 62 6c 79 20 74 |rrays (n|otably t|
|00001a50| 68 65 20 43 4f 4d 4d 4f | 4e 20 2f 4f 42 4a 43 54 |he COMMO|N /OBJCT|
|00001a60| 53 2f 0a 58 2b 20 61 72 | 72 61 79 73 29 20 69 6e |S/.X+ ar|rays) in|
|00001a70| 74 6f 20 69 6e 64 69 76 | 69 64 75 61 6c 20 57 52 |to indiv|idual WR|
|00001a80| 49 54 45 73 20 61 6e 64 | 20 68 61 76 65 6e 27 74 |ITEs and| haven't|
|00001a90| 20 68 61 64 20 61 6e 79 | 20 66 75 72 74 68 65 72 | had any| further|
|00001aa0| 20 70 72 6f 62 6c 65 6d | 73 2e 0a 58 2b 20 49 20 | problem|s..X+ I |
|00001ab0| 63 68 61 6e 67 65 64 20 | 74 68 65 20 52 45 41 44 |changed |the READ|
|00001ac0| 73 20 28 66 6f 72 20 67 | 61 6d 65 20 72 65 73 74 |s (for g|ame rest|
|00001ad0| 6f 72 61 74 69 6f 6e 29 | 20 74 6f 20 62 65 20 69 |oration)| to be i|
|00001ae0| 64 65 6e 74 69 63 61 6c | 2c 20 6a 75 73 74 20 66 |dentical|, just f|
|00001af0| 6f 72 0a 58 2b 20 63 6f | 6e 73 69 73 74 65 6e 63 |or.X+ co|nsistenc|
|00001b00| 79 27 73 20 73 61 6b 65 | 2e 0a 58 2b 20 0a 58 2b |y's sake|..X+ .X+|
|00001b10| 20 0a 58 2b 20 54 68 65 | 72 65 20 61 72 65 20 70 | .X+ The|re are p|
|00001b20| 72 6f 62 61 62 6c 79 20 | 6f 74 68 65 72 20 62 75 |robably |other bu|
|00001b30| 67 73 20 49 20 68 61 76 | 65 20 6e 6f 74 20 79 65 |gs I hav|e not ye|
|00001b40| 74 20 64 69 73 63 6f 76 | 65 72 65 64 2e 20 20 41 |t discov|ered. A|
|00001b50| 6c 72 65 61 64 79 20 49 | 20 61 6d 0a 58 2b 20 73 |lready I| am.X+ s|
|00001b60| 75 73 70 69 63 69 6f 75 | 73 20 6f 66 20 74 68 65 |uspiciou|s of the|
|00001b70| 20 72 61 6e 64 6f 6d 20 | 6e 75 6d 62 65 72 20 67 | random |number g|
|00001b80| 65 6e 65 72 61 74 69 6f | 6e 20 6f 6e 20 6d 79 20 |eneratio|n on my |
|00001b90| 73 79 73 74 65 6d 20 73 | 69 6e 63 65 20 49 27 76 |system s|ince I'v|
|00001ba0| 65 20 6e 65 76 65 72 0a | 58 2b 20 68 61 64 20 74 |e never.|X+ had t|
|00001bb0| 6f 20 74 61 6b 65 20 6d | 6f 72 65 20 74 68 61 6e |o take m|ore than|
|00001bc0| 20 6f 6e 65 20 77 68 61 | 63 6b 20 61 74 20 74 68 | one wha|ck at th|
|00001bd0| 65 20 74 72 6f 6c 6c 20 | 62 65 66 6f 72 65 20 68 |e troll |before h|
|00001be0| 65 27 73 20 6b 6e 6f 63 | 6b 65 64 20 6f 75 74 2e |e's knoc|ked out.|
|00001bf0| 0a 58 2b 20 49 27 6c 6c | 20 6b 65 65 70 20 6c 6f |.X+ I'll| keep lo|
|00001c00| 6f 6b 69 6e 67 20 61 74 | 20 74 68 69 6e 67 73 20 |oking at| things |
|00001c10| 6c 69 6b 65 20 74 68 61 | 74 20 61 6e 64 20 6b 65 |like tha|t and ke|
|00001c20| 65 70 20 79 6f 75 20 70 | 6f 73 74 65 64 2c 20 69 |ep you p|osted, i|
|00001c30| 66 20 79 6f 75 20 6c 69 | 6b 65 2e 0a 58 2b 20 0a |f you li|ke..X+ .|
|00001c40| 58 2b 20 0a 58 2b 20 54 | 68 65 72 65 20 61 72 65 |X+ .X+ T|here are|
|00001c50| 20 61 6c 73 6f 20 61 20 | 66 65 77 20 6f 74 68 65 | also a |few othe|
|00001c60| 72 20 74 68 69 6e 67 73 | 20 6d 79 20 63 6f 6d 70 |r things| my comp|
|00001c70| 69 6c 65 72 20 63 6f 6d | 70 6c 61 69 6e 73 20 61 |iler com|plains a|
|00001c80| 62 6f 75 74 20 74 68 61 | 74 20 49 20 64 69 64 20 |bout tha|t I did |
|00001c90| 6e 6f 74 0a 58 2b 20 62 | 6f 74 68 65 72 20 74 6f |not.X+ b|other to|
|00001ca0| 20 66 69 78 3a 0a 58 2b | 20 0a 58 2b 20 54 68 65 | fix:.X+| .X+ The|
|00001cb0| 20 43 20 70 72 65 70 72 | 6f 63 65 73 73 6f 72 20 | C prepr|ocessor |
|00001cc0| 28 2f 6c 69 62 2f 63 70 | 70 29 20 69 6e 20 53 79 |(/lib/cp|p) in Sy|
|00001cd0| 73 74 65 6d 20 56 20 52 | 65 6c 65 61 73 65 20 33 |stem V R|elease 3|
|00001ce0| 20 77 61 72 6e 73 20 61 | 62 6f 75 74 20 65 78 74 | warns a|bout ext|
|00001cf0| 72 61 0a 58 2b 20 74 6f | 6b 65 6e 73 20 6f 6e 20 |ra.X+ to|kens on |
|00001d00| 63 70 70 20 6c 69 6e 65 | 73 20 6c 69 6b 65 20 23 |cpp line|s like #|
|00001d10| 65 6c 73 65 2c 20 23 65 | 6c 69 66 2c 20 61 6e 64 |else, #e|lif, and|
|00001d20| 20 23 65 6e 64 69 66 2e | 20 20 4f 6e 65 20 77 61 | #endif.| One wa|
|00001d30| 79 20 74 6f 20 73 75 70 | 70 72 65 73 73 0a 58 2b |y to sup|press.X+|
|00001d40| 20 74 68 65 73 65 20 77 | 61 72 6e 69 6e 67 73 20 | these w|arnings |
|00001d50| 69 73 20 74 6f 20 61 64 | 64 20 2f 2a 20 63 6f 6d |is to ad|d /* com|
|00001d60| 6d 65 6e 74 20 2a 2f 20 | 64 65 6c 69 6d 69 74 65 |ment */ |delimite|
|00001d70| 72 73 20 61 72 6f 75 6e | 64 20 74 68 65 20 6f 66 |rs aroun|d the of|
|00001d80| 66 65 6e 64 69 6e 67 20 | 74 6f 6b 65 6e 3a 0a 58 |fending |token:.X|
|00001d90| 2b 20 09 23 69 66 64 65 | 66 20 50 44 50 0a 58 2b |+ .#ifde|f PDP.X+|
|00001da0| 20 09 2e 2e 2e 0a 58 2b | 20 09 23 65 6c 73 65 20 | .....X+| .#else |
|00001db0| 2f 2a 20 50 44 50 20 2a | 2f 0a 58 2b 20 09 2e 2e |/* PDP *|/.X+ ...|
|00001dc0| 2e 0a 58 2b 20 09 23 65 | 6e 64 69 66 20 2f 2a 20 |..X+ .#e|ndif /* |
|00001dd0| 50 44 50 20 2a 2f 0a 58 | 2b 20 0a 58 2b 20 54 68 |PDP */.X|+ .X+ Th|
|00001de0| 65 20 46 37 37 2d 58 4c | 41 2b 20 63 6f 6d 70 69 |e F77-XL|A+ compi|
|00001df0| 6c 65 72 20 77 61 72 6e | 73 20 61 62 6f 75 74 20 |ler warn|s about |
|00001e00| 61 20 64 75 70 6c 69 63 | 61 74 65 20 74 79 70 65 |a duplic|ate type|
|00001e10| 20 73 74 61 74 65 6d 65 | 6e 74 20 66 6f 72 20 50 | stateme|nt for P|
|00001e20| 52 53 57 4f 4e 20 69 6e | 0a 58 2b 20 46 55 4e 43 |RSWON in|.X+ FUNC|
|00001e30| 54 49 4f 4e 20 42 4c 4f | 57 20 69 6e 20 64 65 6d |TION BLO|W in dem|
|00001e40| 6f 6e 73 2e 46 2e 20 20 | 53 69 6e 63 65 20 50 52 |ons.F. |Since PR|
|00001e50| 53 57 4f 4e 20 69 73 20 | 61 6c 72 65 61 64 79 20 |SWON is |already |
|00001e60| 64 65 63 6c 61 72 65 64 | 20 69 6e 20 70 61 72 73 |declared| in pars|
|00001e70| 65 72 2e 68 2c 20 69 74 | 0a 58 2b 20 6e 65 65 64 |er.h, it|.X+ need|
|00001e80| 20 6e 6f 74 20 62 65 20 | 64 65 63 6c 61 72 65 64 | not be |declared|
|00001e90| 20 61 67 61 69 6e 20 69 | 6e 20 64 65 6d 6f 6e 73 | again i|n demons|
|00001ea0| 2e 46 2c 20 61 73 20 69 | 74 20 23 69 6e 63 6c 75 |.F, as i|t #inclu|
|00001eb0| 64 65 73 20 70 61 72 73 | 65 72 2e 68 2e 0a 58 2b |des pars|er.h..X+|
|00001ec0| 20 0a 58 2b 20 54 68 65 | 20 46 37 37 2d 58 4c 41 | .X+ The| F77-XLA|
|00001ed0| 2b 20 63 6f 6d 70 69 6c | 65 72 20 63 6f 6d 70 6c |+ compil|er compl|
|00001ee0| 61 69 6e 73 20 69 66 20 | 74 68 65 20 6c 61 73 74 |ains if |the last|
|00001ef0| 20 73 74 61 74 65 6d 65 | 6e 74 20 62 65 66 6f 72 | stateme|nt befor|
|00001f00| 65 20 45 4e 44 20 69 6e | 20 65 61 63 68 0a 58 2b |e END in| each.X+|
|00001f10| 20 46 55 4e 43 54 49 4f | 4e 20 69 73 20 6e 6f 74 | FUNCTIO|N is not|
|00001f20| 20 61 20 52 45 54 55 52 | 4e 2e 20 20 53 70 65 63 | a RETUR|N. Spec|
|00001f30| 69 66 69 63 61 6c 6c 79 | 2c 20 69 6e 20 74 68 65 |ifically|, in the|
|00001f40| 20 66 6f 6c 6c 6f 77 69 | 6e 67 3a 0a 58 2b 20 09 | followi|ng:.X+ .|
|00001f50| 09 42 41 4c 4c 4f 50 20 | 69 6e 20 62 61 6c 6c 6f |.BALLOP |in ballo|
|00001f60| 70 2e 46 0a 58 2b 20 09 | 09 44 49 4e 49 54 20 69 |p.F.X+ .|.DINIT i|
|00001f70| 6e 20 64 69 6e 69 74 2e | 46 0a 58 2b 20 09 09 4c |n dinit.|F.X+ ..L|
|00001f80| 45 58 20 69 6e 20 6e 70 | 2e 46 0a 58 2b 20 09 09 |EX in np|.F.X+ ..|
|00001f90| 53 50 41 52 53 45 20 69 | 6e 20 6e 70 31 2e 46 0a |SPARSE i|n np1.F.|
|00001fa0| 58 2b 20 09 09 43 59 43 | 4c 4f 50 20 69 6e 20 76 |X+ ..CYC|LOP in v|
|00001fb0| 69 6c 6c 6e 73 2e 46 0a | 58 2b 20 44 49 4e 49 54 |illns.F.|X+ DINIT|
|00001fc0| 20 68 61 73 20 46 4f 52 | 4d 41 54 20 73 74 61 74 | has FOR|MAT stat|
|00001fd0| 65 6d 65 6e 74 73 20 62 | 65 74 77 65 65 6e 20 52 |ements b|etween R|
|00001fe0| 45 54 55 52 4e 20 61 6e | 64 20 45 4e 44 2c 20 43 |ETURN an|d END, C|
|00001ff0| 59 43 4c 4f 50 20 68 61 | 73 20 61 20 63 6f 6d 70 |YCLOP ha|s a comp|
|00002000| 75 74 65 64 0a 58 2b 20 | 47 4f 54 4f 20 6a 75 73 |uted.X+ |GOTO jus|
|00002010| 74 20 62 65 66 6f 72 65 | 20 74 68 65 20 45 4e 44 |t before| the END|
|00002020| 2c 20 61 6e 64 20 74 68 | 65 20 6f 74 68 65 72 73 |, and th|e others|
|00002030| 20 61 6c 6c 20 68 61 76 | 65 20 75 6e 63 6f 6e 64 | all hav|e uncond|
|00002040| 69 74 69 6f 6e 61 6c 20 | 47 4f 54 4f 73 20 6a 75 |itional |GOTOs ju|
|00002050| 73 74 0a 58 2b 20 62 65 | 66 6f 72 65 20 74 68 65 |st.X+ be|fore the|
|00002060| 69 72 20 45 4e 44 73 2e | 20 20 49 66 20 79 6f 75 |ir ENDs.| If you|
|00002070| 20 61 73 6b 20 6d 65 2c | 20 74 68 65 20 46 37 37 | ask me,| the F77|
|00002080| 2d 58 4c 41 2b 20 63 6f | 6d 70 69 6c 65 72 20 69 |-XLA+ co|mpiler i|
|00002090| 73 20 62 65 69 6e 67 20 | 61 20 6c 69 74 74 6c 65 |s being |a little|
|000020a0| 0a 58 2b 20 77 65 69 72 | 64 20 68 65 72 65 2e 0a |.X+ weir|d here..|
|000020b0| 58 2b 20 0a 58 2b 20 49 | 66 20 74 68 65 72 65 27 |X+ .X+ I|f there'|
|000020c0| 73 20 61 6e 79 74 68 69 | 6e 67 20 49 20 63 61 6e |s anythi|ng I can|
|000020d0| 20 64 6f 20 74 6f 20 68 | 65 6c 70 20 6f 75 74 20 | do to h|elp out |
|000020e0| 77 69 74 68 20 44 75 6e | 67 65 6f 6e 2c 20 70 6c |with Dun|geon, pl|
|000020f0| 65 61 73 65 20 6c 65 74 | 20 6d 65 20 6b 6e 6f 77 |ease let| me know|
|00002100| 2e 0a 58 2b 20 49 66 20 | 6e 6f 20 6f 6e 65 20 65 |..X+ If |no one e|
|00002110| 6c 73 65 20 68 61 73 20 | 64 6f 6e 65 20 69 74 2c |lse has |done it,|
|00002120| 20 49 27 6d 20 74 6f 79 | 69 6e 67 20 77 69 74 68 | I'm toy|ing with|
|00002130| 20 74 68 65 20 69 64 65 | 61 20 6f 66 20 70 6f 72 | the ide|a of por|
|00002140| 74 69 6e 67 20 69 74 20 | 74 6f 20 43 2e 0a 58 2b |ting it |to C..X+|
|00002150| 20 50 6c 65 61 73 65 20 | 6c 65 74 20 6d 65 20 6b | Please |let me k|
|00002160| 6e 6f 77 20 79 6f 75 72 | 20 6f 70 69 6e 69 6f 6e |now your| opinion|
|00002170| 20 6f 6e 20 74 68 61 74 | 2e 20 20 54 68 61 6e 6b | on that|. Thank|
|00002180| 73 2e 0a 58 2b 20 2d 2d | 0a 58 2b 20 09 52 6f 67 |s..X+ --|.X+ .Rog|
|00002190| 65 72 20 4e 6f 65 09 09 | 09 72 6a 6e 6f 65 40 61 |er Noe..|.rjnoe@a|
|000021a0| 72 72 61 6b 69 73 2e 65 | 63 65 2e 75 69 75 63 2e |rrakis.e|ce.uiuc.|
|000021b0| 65 64 75 0a 58 2b 20 09 | 55 6e 69 76 65 72 73 69 |edu.X+ .|Universi|
|000021c0| 74 79 20 6f 66 20 49 6c | 6c 69 6e 6f 69 73 0a 58 |ty of Il|linois.X|
|000021d0| 2b 20 09 44 65 70 61 72 | 74 6d 65 6e 74 20 6f 66 |+ .Depar|tment of|
|000021e0| 20 45 6c 65 63 74 72 69 | 63 61 6c 20 61 6e 64 20 | Electri|cal and |
|000021f0| 43 6f 6d 70 75 74 65 72 | 20 45 6e 67 69 6e 65 65 |Computer| Enginee|
|00002200| 72 69 6e 67 0a 58 2b 20 | 09 32 34 38 20 45 76 65 |ring.X+ |.248 Eve|
|00002210| 72 69 74 74 20 4c 61 62 | 6f 72 61 74 6f 72 79 0a |ritt Lab|oratory.|
|00002220| 58 2b 20 09 31 34 30 36 | 20 57 65 73 74 20 47 72 |X+ .1406| West Gr|
|00002230| 65 65 6e 20 53 74 72 65 | 65 74 0a 58 2b 20 09 55 |een Stre|et.X+ .U|
|00002240| 72 62 61 6e 61 2c 20 49 | 4c 20 20 36 31 38 30 31 |rbana, I|L 61801|
|00002250| 20 20 55 53 41 09 09 34 | 30 3a 30 36 3a 33 39 20 | USA..4|0:06:39 |
|00002260| 4e 2e 20 20 38 38 3a 31 | 33 3a 34 31 20 57 2e 0a |N. 88:1|3:41 W..|
|00002270| 58 2b 20 09 2b 31 20 32 | 31 37 20 33 33 33 20 33 |X+ .+1 2|17 333 3|
|00002280| 34 39 36 0a 58 2a 2a 2a | 20 4d 61 6b 65 66 69 6c |496.X***| Makefil|
|00002290| 65 2e 73 79 73 76 2e 6f | 72 69 67 09 4d 6f 6e 20 |e.sysv.o|rig.Mon |
|000022a0| 4f 63 74 20 32 34 20 31 | 35 3a 32 38 3a 35 35 20 |Oct 24 1|5:28:55 |
|000022b0| 31 39 38 38 0a 58 2d 2d | 2d 20 4d 61 6b 65 66 69 |1988.X--|- Makefi|
|000022c0| 6c 65 2e 73 79 73 76 09 | 4d 6f 6e 20 4f 63 74 20 |le.sysv.|Mon Oct |
|000022d0| 32 34 20 31 35 3a 32 38 | 3a 35 34 20 31 39 38 38 |24 15:28|:54 1988|
|000022e0| 0a 58 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.X******|********|
|000022f0| 2a 0a 58 2a 2a 2a 20 31 | 2c 33 0a 58 20 20 23 20 |*.X*** 1|,3.X # |
|00002300| 4d 61 6b 65 66 69 6c 65 | 20 66 6f 72 20 63 72 65 |Makefile| for cre|
|00002310| 61 74 69 6e 67 20 64 75 | 6e 67 65 6f 6e 0a 58 20 |ating du|ngeon.X |
|00002320| 20 23 20 45 64 69 74 20 | 42 49 4e 20 44 44 49 52 | # Edit |BIN DDIR|
|00002330| 20 61 6e 64 20 46 46 4c | 41 47 53 20 73 75 69 74 | and FFL|AGS suit|
|00002340| 61 62 6c 65 20 66 6f 72 | 20 79 6f 75 72 20 73 79 |able for| your sy|
|00002350| 73 74 65 6d 0a 58 20 20 | 23 20 41 6c 73 6f 2c 20 |stem.X |# Also, |
|00002360| 69 66 20 79 6f 75 20 61 | 72 65 20 72 75 6e 6e 69 |if you a|re runni|
|00002370| 6e 67 20 53 79 73 74 65 | 6d 20 56 20 63 68 61 6e |ng Syste|m V chan|
|00002380| 67 65 20 74 68 65 20 2e | 46 2e 6f 20 70 72 6f 64 |ge the .|F.o prod|
|00002390| 75 63 74 69 6f 6e 0a 58 | 0a 58 2d 2d 2d 20 31 2c |uction.X|.X--- 1,|
|000023a0| 34 20 2d 2d 2d 2d 2d 0a | 58 2b 20 46 37 37 20 3d |4 -----.|X+ F77 =|
|000023b0| 20 66 6f 72 74 0a 58 20 | 20 23 20 4d 61 6b 65 66 | fort.X | # Makef|
|000023c0| 69 6c 65 20 66 6f 72 20 | 63 72 65 61 74 69 6e 67 |ile for |creating|
|000023d0| 20 64 75 6e 67 65 6f 6e | 0a 58 20 20 23 20 45 64 | dungeon|.X # Ed|
|000023e0| 69 74 20 42 49 4e 20 44 | 44 49 52 20 61 6e 64 20 |it BIN D|DIR and |
|000023f0| 46 46 4c 41 47 53 20 73 | 75 69 74 61 62 6c 65 20 |FFLAGS s|uitable |
|00002400| 66 6f 72 20 79 6f 75 72 | 20 73 79 73 74 65 6d 0a |for your| system.|
|00002410| 58 20 20 23 20 41 6c 73 | 6f 2c 20 69 66 20 79 6f |X # Als|o, if yo|
|00002420| 75 20 61 72 65 20 72 75 | 6e 6e 69 6e 67 20 53 79 |u are ru|nning Sy|
|00002430| 73 74 65 6d 20 56 20 63 | 68 61 6e 67 65 20 74 68 |stem V c|hange th|
|00002440| 65 20 2e 46 2e 6f 20 70 | 72 6f 64 75 63 74 69 6f |e .F.o p|roductio|
|00002450| 6e 0a 58 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |n.X*****|********|
|00002460| 2a 2a 0a 58 2a 2a 2a 20 | 31 31 2c 31 37 0a 58 20 |**.X*** |11,17.X |
|00002470| 20 23 09 66 37 37 20 2d | 63 20 24 28 46 46 4c 41 | #.f77 -|c $(FFLA|
|00002480| 47 53 29 20 24 2a 2e 46 | 0a 58 20 20 23 20 46 6f |GS) $*.F|.X # Fo|
|00002490| 72 20 53 79 73 74 65 6d | 20 56 20 75 73 65 20 74 |r System| V use t|
|000024a0| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 70 72 6f |he follo|wing pro|
|000024b0| 64 75 63 74 69 6f 6e 20 | 69 6e 73 74 65 61 64 3a |duction |instead:|
|000024c0| 0a 58 20 20 09 40 2f 6c | 69 62 2f 63 70 70 20 24 |.X .@/l|ib/cpp $|
|000024d0| 28 43 50 50 46 4c 41 47 | 53 29 20 24 2a 2e 46 20 |(CPPFLAG|S) $*.F |
|000024e0| 3e 20 24 2a 2e 66 0a 58 | 21 20 09 66 37 37 20 2d |> $*.f.X|! .f77 -|
|000024f0| 63 20 24 28 46 46 4c 41 | 47 53 29 20 24 2a 2e 66 |c $(FFLA|GS) $*.f|
|00002500| 0a 58 20 20 09 72 6d 20 | 24 2a 2e 66 0a 58 20 20 |.X .rm |$*.f.X |
|00002510| 0a 58 20 20 23 20 64 65 | 66 69 6e 65 20 53 59 53 |.X # de|fine SYS|
|00002520| 56 20 69 66 20 72 75 6e | 6e 69 6e 67 20 53 79 73 |V if run|ning Sys|
|00002530| 74 65 6d 20 56 20 6f 72 | 20 56 37 0a 58 0a 58 2d |tem V or| V7.X.X-|
|00002540| 2d 2d 20 31 32 2c 31 38 | 20 2d 2d 2d 2d 2d 0a 58 |-- 12,18| -----.X|
|00002550| 20 20 23 09 66 37 37 20 | 2d 63 20 24 28 46 46 4c | #.f77 |-c $(FFL|
|00002560| 41 47 53 29 20 24 2a 2e | 46 0a 58 20 20 23 20 46 |AGS) $*.|F.X # F|
|00002570| 6f 72 20 53 79 73 74 65 | 6d 20 56 20 75 73 65 20 |or Syste|m V use |
|00002580| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 70 72 |the foll|owing pr|
|00002590| 6f 64 75 63 74 69 6f 6e | 20 69 6e 73 74 65 61 64 |oduction| instead|
|000025a0| 3a 0a 58 20 20 09 40 2f | 6c 69 62 2f 63 70 70 20 |:.X .@/|lib/cpp |
|000025b0| 24 28 43 50 50 46 4c 41 | 47 53 29 20 24 2a 2e 46 |$(CPPFLA|GS) $*.F|
|000025c0| 20 3e 20 24 2a 2e 66 0a | 58 21 20 09 24 28 46 37 | > $*.f.|X! .$(F7|
|000025d0| 37 29 20 2d 63 20 24 28 | 46 46 4c 41 47 53 29 20 |7) -c $(|FFLAGS) |
|000025e0| 24 2a 2e 66 0a 58 20 20 | 09 72 6d 20 24 2a 2e 66 |$*.f.X |.rm $*.f|
|000025f0| 0a 58 20 20 0a 58 20 20 | 23 20 64 65 66 69 6e 65 |.X .X |# define|
|00002600| 20 53 59 53 56 20 69 66 | 20 72 75 6e 6e 69 6e 67 | SYSV if| running|
|00002610| 20 53 79 73 74 65 6d 20 | 56 20 6f 72 20 56 37 0a | System |V or V7.|
|00002620| 58 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |X*******|********|
|00002630| 0a 58 2a 2a 2a 20 32 34 | 2c 33 30 0a 58 20 20 23 |.X*** 24|,30.X #|
|00002640| 46 4f 50 54 53 20 3d 20 | 2d 71 20 23 20 2d 67 20 |FOPTS = |-q # -g |
|00002650| 2d 44 64 65 62 75 67 0a | 58 20 20 23 20 75 73 65 |-Ddebug.|X # use|
|00002660| 20 2d 4e 6e 36 35 30 20 | 66 6f 72 20 53 79 73 74 | -Nn650 |for Syst|
|00002670| 65 6d 20 56 20 74 6f 20 | 69 6e 63 72 65 61 73 65 |em V to |increase|
|00002680| 20 64 65 66 61 75 6c 74 | 20 73 79 6d 62 6f 6c 20 | default| symbol |
|00002690| 74 61 62 6c 65 20 73 69 | 7a 65 0a 58 20 20 23 20 |table si|ze.X # |
|000026a0| 61 6c 73 6f 2c 20 6e 6f | 20 2d 67 20 66 6c 61 67 |also, no| -g flag|
|000026b0| 20 28 63 61 75 73 65 73 | 20 72 75 6e 74 69 6d 65 | (causes| runtime|
|000026c0| 20 65 72 72 6f 72 73 29 | 0a 58 21 20 46 4f 50 54 | errors)|.X! FOPT|
|000026d0| 53 20 3d 20 2d 71 20 2d | 4e 6e 36 35 30 0a 58 20 |S = -q -|Nn650.X |
|000026e0| 20 23 20 66 37 37 20 63 | 6f 6d 70 69 6c 65 72 20 | # f77 c|ompiler |
|000026f0| 66 6c 61 67 73 20 66 6f | 72 20 70 64 70 20 28 36 |flags fo|r pdp (6|
|00002700| 34 4b 20 73 70 6c 69 74 | 20 49 2f 44 29 0a 58 20 |4K split| I/D).X |
|00002710| 20 23 46 4f 50 54 53 20 | 3d 20 2d 71 20 2d 49 32 | #FOPTS |= -q -I2|
|00002720| 20 2d 4c 31 20 2d 69 20 | 2d 44 50 44 50 20 23 20 | -L1 -i |-DPDP # |
|00002730| 2d 44 64 65 62 75 67 0a | 58 20 20 46 46 4c 41 47 |-Ddebug.|X FFLAG|
|00002740| 53 20 3d 20 2d 4f 20 24 | 28 46 4f 50 54 53 29 0a |S = -O $|(FOPTS).|
|00002750| 58 0a 58 2d 2d 2d 20 32 | 35 2c 33 32 20 2d 2d 2d |X.X--- 2|5,32 ---|
|00002760| 2d 2d 0a 58 20 20 23 46 | 4f 50 54 53 20 3d 20 2d |--.X #F|OPTS = -|
|00002770| 71 20 23 20 2d 67 20 2d | 44 64 65 62 75 67 0a 58 |q # -g -|Ddebug.X|
|00002780| 20 20 23 20 75 73 65 20 | 2d 4e 6e 36 35 30 20 66 | # use |-Nn650 f|
|00002790| 6f 72 20 53 79 73 74 65 | 6d 20 56 20 74 6f 20 69 |or Syste|m V to i|
|000027a0| 6e 63 72 65 61 73 65 20 | 64 65 66 61 75 6c 74 20 |ncrease |default |
|000027b0| 73 79 6d 62 6f 6c 20 74 | 61 62 6c 65 20 73 69 7a |symbol t|able siz|
|000027c0| 65 0a 58 20 20 23 20 61 | 6c 73 6f 2c 20 6e 6f 20 |e.X # a|lso, no |
|000027d0| 2d 67 20 66 6c 61 67 20 | 28 63 61 75 73 65 73 20 |-g flag |(causes |
|000027e0| 72 75 6e 74 69 6d 65 20 | 65 72 72 6f 72 73 29 0a |runtime |errors).|
|000027f0| 58 21 20 23 46 4f 50 54 | 53 20 3d 20 2d 71 20 2d |X! #FOPT|S = -q -|
|00002800| 4e 6e 36 35 30 0a 58 21 | 20 46 4f 50 54 53 20 3d |Nn650.X!| FOPTS =|
|00002810| 20 0a 58 20 20 23 20 66 | 37 37 20 63 6f 6d 70 69 | .X # f|77 compi|
|00002820| 6c 65 72 20 66 6c 61 67 | 73 20 66 6f 72 20 70 64 |ler flag|s for pd|
|00002830| 70 20 28 36 34 4b 20 73 | 70 6c 69 74 20 49 2f 44 |p (64K s|plit I/D|
|00002840| 29 0a 58 20 20 23 46 4f | 50 54 53 20 3d 20 2d 71 |).X #FO|PTS = -q|
|00002850| 20 2d 49 32 20 2d 4c 31 | 20 2d 69 20 2d 44 50 44 | -I2 -L1| -i -DPD|
|00002860| 50 20 23 20 2d 44 64 65 | 62 75 67 0a 58 20 20 46 |P # -Dde|bug.X F|
|00002870| 46 4c 41 47 53 20 3d 20 | 2d 4f 20 24 28 46 4f 50 |FLAGS = |-O $(FOP|
|00002880| 54 53 29 0a 58 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |TS).X***|********|
|00002890| 2a 2a 2a 2a 0a 58 2a 2a | 2a 20 35 31 2c 35 37 0a |****.X**|* 51,57.|
|000028a0| 58 20 20 46 53 52 43 20 | 3d 20 20 61 63 74 6f 72 |X FSRC |= actor|
|000028b0| 73 2e 46 20 62 61 6c 6c | 6f 70 2e 46 20 63 6c 6f |s.F ball|op.F clo|
|000028c0| 63 6b 72 2e 46 20 64 65 | 6d 6f 6e 73 2e 46 5c 0a |ckr.F de|mons.F\.|
|000028d0| 58 20 20 09 64 67 61 6d | 65 2e 46 20 64 69 6e 69 |X .dgam|e.F dini|
|000028e0| 74 2e 46 20 64 6d 61 69 | 6e 2e 46 20 64 73 6f 31 |t.F dmai|n.F dso1|
|000028f0| 2e 46 20 64 73 6f 32 2e | 46 5c 0a 58 20 20 09 64 |.F dso2.|F\.X .d|
|00002900| 73 6f 33 2e 46 20 64 73 | 6f 34 2e 46 20 64 73 6f |so3.F ds|o4.F dso|
|00002910| 35 2e 46 20 64 73 6f 36 | 2e 46 20 64 73 6f 37 2e |5.F dso6|.F dso7.|
|00002920| 46 5c 0a 58 21 20 09 64 | 73 75 62 2e 46 20 64 76 |F\.X! .d|sub.F dv|
|00002930| 65 72 62 31 2e 46 20 64 | 76 65 72 62 32 2e 46 20 |erb1.F d|verb2.F |
|00002940| 65 78 69 74 2e 46 20 67 | 64 74 2e 46 20 6c 69 67 |exit.F g|dt.F lig|
|00002950| 68 74 70 2e 46 5c 0a 58 | 20 20 09 6e 6f 62 6a 73 |htp.F\.X| .nobjs|
|00002960| 2e 46 20 6e 70 2e 46 20 | 6e 70 31 2e 46 20 6e 70 |.F np.F |np1.F np|
|00002970| 32 2e 46 20 6e 70 33 2e | 46 20 6e 72 6f 6f 6d 73 |2.F np3.|F nrooms|
|00002980| 2e 46 20 6f 62 6a 63 74 | 73 2e 46 5c 0a 58 20 20 |.F objct|s.F\.X |
|00002990| 09 72 6f 6f 6d 73 2e 46 | 20 73 6f 62 6a 73 2e 46 |.rooms.F| sobjs.F|
|000029a0| 20 73 76 65 72 62 73 2e | 46 20 76 65 72 62 73 2e | sverbs.|F verbs.|
|000029b0| 46 20 76 69 6c 6c 6e 73 | 2e 46 0a 58 20 20 0a 58 |F villns|.F.X .X|
|000029c0| 0a 58 2d 2d 2d 20 35 33 | 2c 35 39 20 2d 2d 2d 2d |.X--- 53|,59 ----|
|000029d0| 2d 0a 58 20 20 46 53 52 | 43 20 3d 20 20 61 63 74 |-.X FSR|C = act|
|000029e0| 6f 72 73 2e 46 20 62 61 | 6c 6c 6f 70 2e 46 20 63 |ors.F ba|llop.F c|
|000029f0| 6c 6f 63 6b 72 2e 46 20 | 64 65 6d 6f 6e 73 2e 46 |lockr.F |demons.F|
|00002a00| 5c 0a 58 20 20 09 64 67 | 61 6d 65 2e 46 20 64 69 |\.X .dg|ame.F di|
|00002a10| 6e 69 74 2e 46 20 64 6d | 61 69 6e 2e 46 20 64 73 |nit.F dm|ain.F ds|
|00002a20| 6f 31 2e 46 20 64 73 6f | 32 2e 46 5c 0a 58 20 20 |o1.F dso|2.F\.X |
|00002a30| 09 64 73 6f 33 2e 46 20 | 64 73 6f 34 2e 46 20 64 |.dso3.F |dso4.F d|
|00002a40| 73 6f 35 2e 46 20 64 73 | 6f 36 2e 46 20 64 73 6f |so5.F ds|o6.F dso|
|00002a50| 37 2e 46 5c 0a 58 21 20 | 09 64 73 75 62 2e 46 20 |7.F\.X! |.dsub.F |
|00002a60| 64 76 65 72 62 31 2e 46 | 20 64 76 65 72 62 32 2e |dverb1.F| dverb2.|
|00002a70| 46 20 67 64 74 2e 46 20 | 6c 69 67 68 74 70 2e 46 |F gdt.F |lightp.F|
|00002a80| 5c 0a 58 20 20 09 6e 6f | 62 6a 73 2e 46 20 6e 70 |\.X .no|bjs.F np|
|00002a90| 2e 46 20 6e 70 31 2e 46 | 20 6e 70 32 2e 46 20 6e |.F np1.F| np2.F n|
|00002aa0| 70 33 2e 46 20 6e 72 6f | 6f 6d 73 2e 46 20 6f 62 |p3.F nro|oms.F ob|
|00002ab0| 6a 63 74 73 2e 46 5c 0a | 58 20 20 09 72 6f 6f 6d |jcts.F\.|X .room|
|00002ac0| 73 2e 46 20 73 6f 62 6a | 73 2e 46 20 73 76 65 72 |s.F sobj|s.F sver|
|00002ad0| 62 73 2e 46 20 76 65 72 | 62 73 2e 46 20 76 69 6c |bs.F ver|bs.F vil|
|00002ae0| 6c 6e 73 2e 46 0a 58 20 | 20 0a 58 2a 2a 2a 2a 2a |lns.F.X | .X*****|
|00002af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 58 2a 2a 2a 20 |********|**.X*** |
|00002b00| 35 35 2c 36 31 0a 58 20 | 20 09 6e 6f 62 6a 73 2e |55,61.X | .nobjs.|
|00002b10| 46 20 6e 70 2e 46 20 6e | 70 31 2e 46 20 6e 70 32 |F np.F n|p1.F np2|
|00002b20| 2e 46 20 6e 70 33 2e 46 | 20 6e 72 6f 6f 6d 73 2e |.F np3.F| nrooms.|
|00002b30| 46 20 6f 62 6a 63 74 73 | 2e 46 5c 0a 58 20 20 09 |F objcts|.F\.X .|
|00002b40| 72 6f 6f 6d 73 2e 46 20 | 73 6f 62 6a 73 2e 46 20 |rooms.F |sobjs.F |
|00002b50| 73 76 65 72 62 73 2e 46 | 20 76 65 72 62 73 2e 46 |sverbs.F| verbs.F|
|00002b60| 20 76 69 6c 6c 6e 73 2e | 46 0a 58 20 20 0a 58 21 | villns.|F.X .X!|
|00002b70| 20 43 53 52 43 20 3d 09 | 63 69 6e 69 74 2e 63 20 | CSRC =.|cinit.c |
|00002b80| 63 69 6f 2e 63 20 63 73 | 70 65 61 6b 2e 63 20 64 |cio.c cs|peak.c d|
|00002b90| 65 63 6f 64 65 2e 63 20 | 6c 65 78 2e 63 20 6c 69 |ecode.c |lex.c li|
|00002ba0| 73 74 65 6e 2e 63 20 72 | 74 69 6d 2e 63 0a 58 20 |sten.c r|tim.c.X |
|00002bb0| 20 0a 58 20 20 4f 42 4a | 53 20 3d 20 20 61 63 74 | .X OBJ|S = act|
|00002bc0| 6f 72 73 2e 6f 20 62 61 | 6c 6c 6f 70 2e 6f 20 63 |ors.o ba|llop.o c|
|00002bd0| 6c 6f 63 6b 72 2e 6f 20 | 64 65 6d 6f 6e 73 2e 6f |lockr.o |demons.o|
|00002be0| 5c 0a 58 20 20 09 64 67 | 61 6d 65 2e 6f 20 64 69 |\.X .dg|ame.o di|
|00002bf0| 6e 69 74 2e 6f 20 64 6d | 61 69 6e 2e 6f 20 64 73 |nit.o dm|ain.o ds|
|00002c00| 6f 31 2e 6f 20 64 73 6f | 32 2e 6f 5c 0a 58 0a 58 |o1.o dso|2.o\.X.X|
|00002c10| 2d 2d 2d 20 35 37 2c 36 | 33 20 2d 2d 2d 2d 2d 0a |--- 57,6|3 -----.|
|00002c20| 58 20 20 09 6e 6f 62 6a | 73 2e 46 20 6e 70 2e 46 |X .nobj|s.F np.F|
|00002c30| 20 6e 70 31 2e 46 20 6e | 70 32 2e 46 20 6e 70 33 | np1.F n|p2.F np3|
|00002c40| 2e 46 20 6e 72 6f 6f 6d | 73 2e 46 20 6f 62 6a 63 |.F nroom|s.F objc|
|00002c50| 74 73 2e 46 5c 0a 58 20 | 20 09 72 6f 6f 6d 73 2e |ts.F\.X | .rooms.|
|00002c60| 46 20 73 6f 62 6a 73 2e | 46 20 73 76 65 72 62 73 |F sobjs.|F sverbs|
|00002c70| 2e 46 20 76 65 72 62 73 | 2e 46 20 76 69 6c 6c 6e |.F verbs|.F villn|
|00002c80| 73 2e 46 0a 58 20 20 0a | 58 21 20 43 53 52 43 20 |s.F.X .|X! CSRC |
|00002c90| 3d 09 63 69 6e 69 74 2e | 63 20 63 69 6f 2e 63 20 |=.cinit.|c cio.c |
|00002ca0| 63 73 70 65 61 6b 2e 63 | 20 64 65 63 6f 64 65 2e |cspeak.c| decode.|
|00002cb0| 63 20 65 78 69 74 2e 63 | 20 6c 65 78 2e 63 20 6c |c exit.c| lex.c l|
|00002cc0| 69 73 74 65 6e 2e 63 20 | 72 74 69 6d 2e 63 0a 58 |isten.c |rtim.c.X|
|00002cd0| 20 20 0a 58 20 20 4f 42 | 4a 53 20 3d 20 20 61 63 | .X OB|JS = ac|
|00002ce0| 74 6f 72 73 2e 6f 20 62 | 61 6c 6c 6f 70 2e 6f 20 |tors.o b|allop.o |
|00002cf0| 63 6c 6f 63 6b 72 2e 6f | 20 64 65 6d 6f 6e 73 2e |clockr.o| demons.|
|00002d00| 6f 5c 0a 58 20 20 09 64 | 67 61 6d 65 2e 6f 20 64 |o\.X .d|game.o d|
|00002d10| 69 6e 69 74 2e 6f 20 64 | 6d 61 69 6e 2e 6f 20 64 |init.o d|main.o d|
|00002d20| 73 6f 31 2e 6f 20 64 73 | 6f 32 2e 6f 5c 0a 58 2a |so1.o ds|o2.o\.X*|
|00002d30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 58 |********|******.X|
|00002d40| 2a 2a 2a 20 37 32 2c 37 | 38 0a 58 20 20 70 64 70 |*** 72,7|8.X pdp|
|00002d50| 3a 09 64 75 6e 67 70 64 | 70 20 73 70 65 61 6b 20 |:.dungpd|p speak |
|00002d60| 6c 69 73 74 65 6e 20 64 | 74 65 78 74 2e 64 61 74 |listen d|text.dat|
|00002d70| 0a 58 20 20 0a 58 20 20 | 64 75 6e 67 65 6f 6e 3a |.X .X |dungeon:|
|00002d80| 20 24 28 4f 42 4a 53 29 | 0a 58 21 20 09 66 37 37 | $(OBJS)|.X! .f77|
|00002d90| 20 2d 6f 20 64 75 6e 67 | 65 6f 6e 20 24 28 4f 42 | -o dung|eon $(OB|
|00002da0| 4a 53 29 20 24 28 4c 44 | 46 4c 41 47 53 29 0a 58 |JS) $(LD|FLAGS).X|
|00002db0| 20 20 09 40 65 63 68 6f | 20 64 6f 6e 65 0a 58 20 | .@echo| done.X |
|00002dc0| 20 0a 58 20 20 64 75 6e | 67 70 64 70 3a 20 24 28 | .X dun|gpdp: $(|
|00002dd0| 4f 42 4a 53 29 20 24 28 | 50 44 50 4f 42 4a 53 29 |OBJS) $(|PDPOBJS)|
|00002de0| 0a 58 0a 58 2d 2d 2d 20 | 37 34 2c 38 30 20 2d 2d |.X.X--- |74,80 --|
|00002df0| 2d 2d 2d 0a 58 20 20 70 | 64 70 3a 09 64 75 6e 67 |---.X p|dp:.dung|
|00002e00| 70 64 70 20 73 70 65 61 | 6b 20 6c 69 73 74 65 6e |pdp spea|k listen|
|00002e10| 20 64 74 65 78 74 2e 64 | 61 74 0a 58 20 20 0a 58 | dtext.d|at.X .X|
|00002e20| 20 20 64 75 6e 67 65 6f | 6e 3a 20 24 28 4f 42 4a | dungeo|n: $(OBJ|
|00002e30| 53 29 0a 58 21 20 09 24 | 28 46 37 37 29 20 2d 6f |S).X! .$|(F77) -o|
|00002e40| 20 64 75 6e 67 65 6f 6e | 20 24 28 4f 42 4a 53 29 | dungeon| $(OBJS)|
|00002e50| 20 24 28 4c 44 46 4c 41 | 47 53 29 0a 58 20 20 09 | $(LDFLA|GS).X .|
|00002e60| 40 65 63 68 6f 20 64 6f | 6e 65 0a 58 20 20 0a 58 |@echo do|ne.X .X|
|00002e70| 20 20 64 75 6e 67 70 64 | 70 3a 20 24 28 4f 42 4a | dungpd|p: $(OBJ|
|00002e80| 53 29 20 24 28 50 44 50 | 4f 42 4a 53 29 0a 58 2a |S) $(PDP|OBJS).X*|
|00002e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 58 |********|******.X|
|00002ea0| 2a 2a 2a 20 39 38 2c 31 | 30 35 0a 58 20 20 64 69 |*** 98,1|05.X di|
|00002eb0| 6e 69 74 2e 6f 3a 20 64 | 69 6e 69 74 2e 46 0a 58 |nit.o: d|init.F.X|
|00002ec0| 20 20 23 09 66 37 37 20 | 24 28 46 46 4c 41 47 53 | #.f77 |$(FFLAGS|
|00002ed0| 29 20 2d 44 44 44 49 52 | 3d 24 28 44 44 49 52 29 |) -DDDIR|=$(DDIR)|
|00002ee0| 20 24 28 57 49 5a 44 45 | 46 29 20 2d 63 20 64 69 | $(WIZDE|F) -c di|
|00002ef0| 6e 69 74 2e 46 0a 58 20 | 20 23 20 46 6f 72 20 53 |nit.F.X | # For S|
|00002f00| 79 73 74 65 6d 20 56 20 | 75 73 65 20 74 68 65 20 |ystem V |use the |
|00002f10| 66 6f 6c 6c 6f 77 69 6e | 67 20 69 6e 73 74 65 61 |followin|g instea|
|00002f20| 64 3a 0a 58 21 20 09 40 | 2f 6c 69 62 2f 63 70 70 |d:.X! .@|/lib/cpp|
|00002f30| 20 24 28 43 50 50 46 4c | 41 47 53 29 20 64 69 6e | $(CPPFL|AGS) din|
|00002f40| 69 74 2e 46 20 3e 20 64 | 69 6e 69 74 2e 66 0a 58 |it.F > d|init.f.X|
|00002f50| 21 20 09 66 37 37 20 24 | 28 46 46 4c 41 47 53 29 |! .f77 $|(FFLAGS)|
|00002f60| 20 2d 44 44 44 49 52 3d | 24 28 44 44 49 52 29 20 | -DDDIR=|$(DDIR) |
|00002f70| 24 28 57 49 5a 44 45 46 | 29 20 2d 63 20 64 69 6e |$(WIZDEF|) -c din|
|00002f80| 69 74 2e 66 0a 58 20 20 | 09 72 6d 20 24 2a 2e 66 |it.f.X |.rm $*.f|
|00002f90| 0a 58 20 20 0a 58 20 20 | 23 20 75 6e 63 6f 6d 6d |.X .X |# uncomm|
|00002fa0| 65 6e 74 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |ent the |followin|
|00002fb0| 67 20 66 6f 72 20 53 75 | 6e 73 20 74 6f 20 67 65 |g for Su|ns to ge|
|00002fc0| 74 20 61 72 6f 75 6e 64 | 20 61 6e 20 6f 70 74 69 |t around| an opti|
|00002fd0| 6d 69 7a 65 72 20 62 75 | 67 0a 58 0a 58 2d 2d 2d |mizer bu|g.X.X---|
|00002fe0| 20 31 30 30 2c 31 30 37 | 20 2d 2d 2d 2d 2d 0a 58 | 100,107| -----.X|
|00002ff0| 20 20 64 69 6e 69 74 2e | 6f 3a 20 64 69 6e 69 74 | dinit.|o: dinit|
|00003000| 2e 46 0a 58 20 20 23 09 | 66 37 37 20 24 28 46 46 |.F.X #.|f77 $(FF|
|00003010| 4c 41 47 53 29 20 2d 44 | 44 44 49 52 3d 24 28 44 |LAGS) -D|DDIR=$(D|
|00003020| 44 49 52 29 20 24 28 57 | 49 5a 44 45 46 29 20 2d |DIR) $(W|IZDEF) -|
|00003030| 63 20 64 69 6e 69 74 2e | 46 0a 58 20 20 23 20 46 |c dinit.|F.X # F|
|00003040| 6f 72 20 53 79 73 74 65 | 6d 20 56 20 75 73 65 20 |or Syste|m V use |
|00003050| 74 68 65 20 66 6f 6c 6c | 6f 77 69 6e 67 20 69 6e |the foll|owing in|
|00003060| 73 74 65 61 64 3a 0a 58 | 21 20 09 40 2f 6c 69 62 |stead:.X|! .@/lib|
|00003070| 2f 63 70 70 20 24 28 43 | 50 50 46 4c 41 47 53 29 |/cpp $(C|PPFLAGS)|
|00003080| 20 2d 44 44 44 49 52 3d | 24 28 44 44 49 52 29 20 | -DDDIR=|$(DDIR) |
|00003090| 24 28 57 49 5a 44 45 46 | 29 20 64 69 6e 69 74 2e |$(WIZDEF|) dinit.|
|000030a0| 46 20 3e 20 64 69 6e 69 | 74 2e 66 0a 58 21 20 09 |F > dini|t.f.X! .|
|000030b0| 24 28 46 37 37 29 20 2d | 63 20 24 28 46 46 4c 41 |$(F77) -|c $(FFLA|
|000030c0| 47 53 29 20 64 69 6e 69 | 74 2e 66 0a 58 20 20 09 |GS) dini|t.f.X .|
|000030d0| 72 6d 20 24 2a 2e 66 0a | 58 20 20 0a 58 20 20 23 |rm $*.f.|X .X #|
|000030e0| 20 75 6e 63 6f 6d 6d 65 | 6e 74 20 74 68 65 20 66 | uncomme|nt the f|
|000030f0| 6f 6c 6c 6f 77 69 6e 67 | 20 66 6f 72 20 53 75 6e |ollowing| for Sun|
|00003100| 73 20 74 6f 20 67 65 74 | 20 61 72 6f 75 6e 64 20 |s to get| around |
|00003110| 61 6e 20 6f 70 74 69 6d | 69 7a 65 72 20 62 75 67 |an optim|izer bug|
|00003120| 0a 58 2a 2a 2a 20 64 69 | 6e 69 74 2e 46 2e 6f 72 |.X*** di|nit.F.or|
|00003130| 69 67 09 4d 6f 6e 20 4f | 63 74 20 32 34 20 31 35 |ig.Mon O|ct 24 15|
|00003140| 3a 32 38 3a 35 35 20 31 | 39 38 38 0a 58 2d 2d 2d |:28:55 1|988.X---|
|00003150| 20 64 69 6e 69 74 2e 46 | 09 4d 6f 6e 20 4f 63 74 | dinit.F|.Mon Oct|
|00003160| 20 32 34 20 31 35 3a 32 | 38 3a 35 35 20 31 39 38 | 24 15:2|8:55 198|
|00003170| 38 0a 58 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |8.X*****|********|
|00003180| 2a 2a 0a 58 2a 2a 2a 20 | 31 38 2c 32 34 0a 58 20 |**.X*** |18,24.X |
|00003190| 20 43 0a 58 20 20 43 20 | 44 45 43 4c 41 52 41 54 | C.X C |DECLARAT|
|000031a0| 49 4f 4e 53 0a 58 20 20 | 43 0a 58 21 20 09 4c 4f |IONS.X |C.X! .LO|
|000031b0| 47 49 43 41 4c 20 46 55 | 4e 43 54 49 4f 4e 20 49 |GICAL FU|NCTION I|
|000031c0| 4e 49 54 28 58 29 0a 58 | 20 20 09 49 4d 50 4c 49 |NIT(X).X| .IMPLI|
|000031d0| 43 49 54 20 49 4e 54 45 | 47 45 52 20 28 41 2d 5a |CIT INTE|GER (A-Z|
|000031e0| 29 0a 58 20 20 23 69 66 | 6e 64 65 66 20 50 44 50 |).X #if|ndef PDP|
|000031f0| 0a 58 20 20 09 4c 4f 47 | 49 43 41 4c 20 50 52 4f |.X .LOG|ICAL PRO|
|00003200| 54 43 54 0a 58 0a 58 2d | 2d 2d 20 31 38 2c 32 34 |TCT.X.X-|-- 18,24|
|00003210| 20 2d 2d 2d 2d 2d 0a 58 | 20 20 43 0a 58 20 20 43 | -----.X| C.X C|
|00003220| 20 44 45 43 4c 41 52 41 | 54 49 4f 4e 53 0a 58 20 | DECLARA|TIONS.X |
|00003230| 20 43 0a 58 21 20 09 4c | 4f 47 49 43 41 4c 20 46 | C.X! .L|OGICAL F|
|00003240| 55 4e 43 54 49 4f 4e 20 | 44 49 4e 49 54 28 58 29 |UNCTION |DINIT(X)|
|00003250| 0a 58 20 20 09 49 4d 50 | 4c 49 43 49 54 20 49 4e |.X .IMP|LICIT IN|
|00003260| 54 45 47 45 52 20 28 41 | 2d 5a 29 0a 58 20 20 23 |TEGER (A|-Z).X #|
|00003270| 69 66 6e 64 65 66 20 50 | 44 50 0a 58 20 20 09 4c |ifndef P|DP.X .L|
|00003280| 4f 47 49 43 41 4c 20 50 | 52 4f 54 43 54 0a 58 2a |OGICAL P|ROTCT.X*|
|00003290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 58 |********|******.X|
|000032a0| 2a 2a 2a 20 31 35 33 2c | 31 35 39 0a 58 20 20 09 |*** 153,|159.X .|
|000032b0| 46 52 4f 4d 44 52 3d 30 | 0a 58 20 20 09 53 43 4f |FROMDR=0|.X .SCO|
|000032c0| 4c 52 4d 3d 30 0a 58 20 | 20 09 53 43 4f 4c 41 43 |LRM=0.X | .SCOLAC|
|000032d0| 3d 30 0a 58 21 20 09 49 | 4e 49 54 3d 2e 46 41 4c |=0.X! .I|NIT=.FAL|
|000032e0| 53 45 2e 09 09 0a 58 20 | 20 09 4d 4c 4f 43 3d 4d |SE....X | .MLOC=M|
|000032f0| 52 42 0a 58 20 20 43 0a | 58 20 20 43 20 49 4e 49 |RB.X C.|X C INI|
|00003300| 54 2c 20 50 41 47 45 20 | 34 0a 58 0a 58 2d 2d 2d |T, PAGE |4.X.X---|
|00003310| 20 31 35 33 2c 31 35 39 | 20 2d 2d 2d 2d 2d 0a 58 | 153,159| -----.X|
|00003320| 20 20 09 46 52 4f 4d 44 | 52 3d 30 0a 58 20 20 09 | .FROMD|R=0.X .|
|00003330| 53 43 4f 4c 52 4d 3d 30 | 0a 58 20 20 09 53 43 4f |SCOLRM=0|.X .SCO|
|00003340| 4c 41 43 3d 30 0a 58 21 | 20 09 44 49 4e 49 54 3d |LAC=0.X!| .DINIT=|
|00003350| 2e 46 41 4c 53 45 2e 09 | 09 0a 58 20 20 09 4d 4c |.FALSE..|..X .ML|
|00003360| 4f 43 3d 4d 52 42 0a 58 | 20 20 43 0a 58 20 20 43 |OC=MRB.X| C.X C|
|00003370| 20 49 4e 49 54 2c 20 50 | 41 47 45 20 34 0a 58 2a | INIT, P|AGE 4.X*|
|00003380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 58 |********|******.X|
|00003390| 2a 2a 2a 20 32 34 37 2c | 32 35 33 0a 58 20 20 09 |*** 247,|253.X .|
|000033a0| 48 45 52 45 3d 41 52 4f | 4f 4d 28 57 49 4e 4e 45 |HERE=ARO|OM(WINNE|
|000033b0| 52 29 0a 58 20 20 09 54 | 48 46 50 4f 53 3d 4f 52 |R).X .T|HFPOS=OR|
|000033c0| 4f 4f 4d 28 54 48 49 45 | 46 29 0a 58 20 20 09 42 |OOM(THIE|F).X .B|
|000033d0| 4c 4f 43 3d 4f 52 4f 4f | 4d 28 42 41 4c 4c 4f 29 |LOC=OROO|M(BALLO)|
|000033e0| 0a 58 21 20 09 49 4e 49 | 54 3d 2e 54 52 55 45 2e |.X! .INI|T=.TRUE.|
|000033f0| 0a 58 20 20 23 69 66 64 | 65 66 20 64 65 62 75 67 |.X #ifd|ef debug|
|00003400| 0a 58 20 20 43 0a 58 20 | 20 43 09 4e 6f 72 6d 61 |.X C.X | C.Norma|
|00003410| 6c 6c 79 2c 20 50 52 53 | 46 4c 47 20 69 73 20 73 |lly, PRS|FLG is s|
|00003420| 65 74 61 62 6c 65 20 69 | 6e 20 67 64 74 20 74 6f |etable i|n gdt to|
|00003430| 20 61 6c 6c 6f 77 20 73 | 65 65 69 6e 67 20 76 61 | allow s|eeing va|
|00003440| 72 69 6f 75 73 0a 58 0a | 58 2d 2d 2d 20 32 34 37 |rious.X.|X--- 247|
|00003450| 2c 32 35 33 20 2d 2d 2d | 2d 2d 0a 58 20 20 09 48 |,253 ---|--.X .H|
|00003460| 45 52 45 3d 41 52 4f 4f | 4d 28 57 49 4e 4e 45 52 |ERE=AROO|M(WINNER|
|00003470| 29 0a 58 20 20 09 54 48 | 46 50 4f 53 3d 4f 52 4f |).X .TH|FPOS=ORO|
|00003480| 4f 4d 28 54 48 49 45 46 | 29 0a 58 20 20 09 42 4c |OM(THIEF|).X .BL|
|00003490| 4f 43 3d 4f 52 4f 4f 4d | 28 42 41 4c 4c 4f 29 0a |OC=OROOM|(BALLO).|
|000034a0| 58 21 20 09 44 49 4e 49 | 54 3d 2e 54 52 55 45 2e |X! .DINI|T=.TRUE.|
|000034b0| 0a 58 20 20 23 69 66 64 | 65 66 20 64 65 62 75 67 |.X #ifd|ef debug|
|000034c0| 0a 58 20 20 43 0a 58 20 | 20 43 09 4e 6f 72 6d 61 |.X C.X | C.Norma|
|000034d0| 6c 6c 79 2c 20 50 52 53 | 46 4c 47 20 69 73 20 73 |lly, PRS|FLG is s|
|000034e0| 65 74 61 62 6c 65 20 69 | 6e 20 67 64 74 20 74 6f |etable i|n gdt to|
|000034f0| 20 61 6c 6c 6f 77 20 73 | 65 65 69 6e 67 20 76 61 | allow s|eeing va|
|00003500| 72 69 6f 75 73 0a 58 2a | 2a 2a 2a 2a 2a 2a 2a 2a |rious.X*|********|
|00003510| 2a 2a 2a 2a 2a 2a 0a 58 | 2a 2a 2a 20 32 36 36 2c |******.X|*** 266,|
|00003520| 32 37 32 0a 58 20 20 31 | 39 32 35 09 63 6f 6e 74 |272.X 1|925.cont|
|00003530| 69 6e 75 65 0a 58 20 20 | 09 45 4e 44 0a 58 20 20 |inue.X |.END.X |
|00003540| 23 65 6c 73 65 20 50 44 | 50 0a 58 21 20 31 30 30 |#else PD|P.X! 100|
|00003550| 30 30 09 49 4e 49 54 3d | 2e 46 41 4c 53 45 2e 0a |00.INIT=|.FALSE..|
|00003560| 58 20 20 43 09 09 09 09 | 09 09 21 41 53 53 55 4d |X C....|..!ASSUM|
|00003570| 45 20 49 4e 49 54 20 46 | 41 49 4c 53 2e 0a 58 20 |E INIT F|AILS..X |
|00003580| 20 09 4d 4d 41 58 3d 31 | 30 35 30 0a 58 20 20 43 | .MMAX=1|050.X C|
|00003590| 09 09 09 09 09 09 21 53 | 45 54 20 55 50 20 41 52 |......!S|ET UP AR|
|000035a0| 52 41 59 20 4c 49 4d 49 | 54 53 2e 0a 58 0a 58 2d |RAY LIMI|TS..X.X-|
|000035b0| 2d 2d 20 32 36 36 2c 32 | 37 32 20 2d 2d 2d 2d 2d |-- 266,2|72 -----|
|000035c0| 0a 58 20 20 31 39 32 35 | 09 63 6f 6e 74 69 6e 75 |.X 1925|.continu|
|000035d0| 65 0a 58 20 20 09 45 4e | 44 0a 58 20 20 23 65 6c |e.X .EN|D.X #el|
|000035e0| 73 65 20 50 44 50 0a 58 | 21 20 31 30 30 30 30 09 |se PDP.X|! 10000.|
|000035f0| 44 49 4e 49 54 3d 2e 46 | 41 4c 53 45 2e 0a 58 20 |DINIT=.F|ALSE..X |
|00003600| 20 43 09 09 09 09 09 09 | 21 41 53 53 55 4d 45 20 | C......|!ASSUME |
|00003610| 49 4e 49 54 20 46 41 49 | 4c 53 2e 0a 58 20 20 09 |INIT FAI|LS..X .|
|00003620| 4d 4d 41 58 3d 31 30 35 | 30 0a 58 20 20 43 09 09 |MMAX=105|0.X C..|
|00003630| 09 09 09 09 21 53 45 54 | 20 55 50 20 41 52 52 41 |....!SET| UP ARRA|
|00003640| 59 20 4c 49 4d 49 54 53 | 2e 0a 58 2a 2a 2a 2a 2a |Y LIMITS|..X*****|
|00003650| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 58 2a 2a 2a 20 |********|**.X*** |
|00003660| 34 34 39 2c 34 35 35 0a | 58 20 20 43 0a 58 20 20 |449,455.|X C.X |
|00003670| 43 20 4e 4f 57 20 52 45 | 53 54 4f 52 45 20 46 52 |C NOW RE|STORE FR|
|00003680| 4f 4d 20 45 58 49 53 54 | 49 4e 47 20 49 4e 44 45 |OM EXIST|ING INDE|
|00003690| 58 20 46 49 4c 45 2e 0a | 58 20 20 43 0a 58 21 20 |X FILE..|X C.X! |
|000036a0| 09 4f 50 45 4e 28 55 4e | 49 54 3d 31 2c 66 69 6c |.OPEN(UN|IT=1,fil|
|000036b0| 65 3d 49 4e 44 58 46 49 | 4c 45 2c 73 74 61 74 75 |e=INDXFI|LE,statu|
|000036c0| 73 3d 27 4f 4c 44 27 2c | 0a 58 20 20 23 69 66 64 |s='OLD',|.X #ifd|
|000036d0| 65 66 20 58 45 4c 4f 53 | 0a 58 20 20 26 09 09 46 |ef XELOS|.X &..F|
|000036e0| 4f 52 4d 3d 27 46 4f 52 | 4d 41 54 54 45 44 27 2c |ORM='FOR|MATTED',|
|000036f0| 41 43 43 45 53 53 3d 27 | 53 45 51 55 45 4e 54 49 |ACCESS='|SEQUENTI|
|00003700| 41 4c 27 2c 45 52 52 3d | 31 39 30 30 2c 72 65 63 |AL',ERR=|1900,rec|
|00003710| 6c 3d 31 29 0a 58 20 20 | 23 65 6c 73 65 0a 58 0a |l=1).X |#else.X.|
|00003720| 58 2d 2d 2d 20 34 34 39 | 2c 34 35 35 20 2d 2d 2d |X--- 449|,455 ---|
|00003730| 2d 2d 0a 58 20 20 43 0a | 58 20 20 43 20 4e 4f 57 |--.X C.|X C NOW|
|00003740| 20 52 45 53 54 4f 52 45 | 20 46 52 4f 4d 20 45 58 | RESTORE| FROM EX|
|00003750| 49 53 54 49 4e 47 20 49 | 4e 44 45 58 20 46 49 4c |ISTING I|NDEX FIL|
|00003760| 45 2e 0a 58 20 20 43 0a | 58 21 20 09 4f 50 45 4e |E..X C.|X! .OPEN|
|00003770| 28 55 4e 49 54 3d 33 2c | 66 69 6c 65 3d 49 4e 44 |(UNIT=3,|file=IND|
|00003780| 58 46 49 4c 45 2c 73 74 | 61 74 75 73 3d 27 4f 4c |XFILE,st|atus='OL|
|00003790| 44 27 2c 0a 58 20 20 23 | 69 66 64 65 66 20 58 45 |D',.X #|ifdef XE|
|000037a0| 4c 4f 53 0a 58 20 20 26 | 09 09 46 4f 52 4d 3d 27 |LOS.X &|..FORM='|
|000037b0| 46 4f 52 4d 41 54 54 45 | 44 27 2c 41 43 43 45 53 |FORMATTE|D',ACCES|
|000037c0| 53 3d 27 53 45 51 55 45 | 4e 54 49 41 4c 27 2c 45 |S='SEQUE|NTIAL',E|
|000037d0| 52 52 3d 31 39 30 30 2c | 72 65 63 6c 3d 31 29 0a |RR=1900,|recl=1).|
|000037e0| 58 20 20 23 65 6c 73 65 | 0a 58 2a 2a 2a 2a 2a 2a |X #else|.X******|
|000037f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0a 58 2a 2a 2a 20 34 |********|*.X*** 4|
|00003800| 35 35 2c 34 36 32 0a 58 | 20 20 23 65 6c 73 65 0a |55,462.X| #else.|
|00003810| 58 20 20 26 09 09 46 4f | 52 4d 3d 27 46 4f 52 4d |X &..FO|RM='FORM|
|00003820| 41 54 54 45 44 27 2c 41 | 43 43 45 53 53 3d 27 53 |ATTED',A|CCESS='S|
|00003830| 45 51 55 45 4e 54 49 41 | 4c 27 2c 45 52 52 3d 31 |EQUENTIA|L',ERR=1|
|00003840| 39 30 30 29 0a 58 20 20 | 23 65 6e 64 69 66 0a 58 |900).X |#endif.X|
|00003850| 21 20 09 72 65 77 69 6e | 64 28 75 6e 69 74 3d 31 |! .rewin|d(unit=1|
|00003860| 2c 20 65 72 72 3d 31 39 | 30 30 29 0a 58 21 20 09 |, err=19|00).X! .|
|00003870| 52 45 41 44 28 31 2c 31 | 33 30 29 20 49 2c 4a 2c |READ(1,1|30) I,J,|
|00003880| 4b 0a 58 20 20 43 09 09 | 09 09 09 09 21 47 45 54 |K.X C..|....!GET|
|00003890| 20 56 45 52 53 49 4f 4e | 2e 0a 58 20 20 09 49 46 | VERSION|..X .IF|
|000038a0| 28 28 49 2e 4e 45 2e 56 | 4d 41 4a 29 2e 4f 52 2e |((I.NE.V|MAJ).OR.|
|000038b0| 28 4a 2e 4e 45 2e 56 4d | 49 4e 29 29 0a 58 20 20 |(J.NE.VM|IN)).X |
|000038c0| 26 09 09 47 4f 20 54 4f | 20 31 39 32 35 0a 58 0a |&..GO TO| 1925.X.|
|000038d0| 58 2d 2d 2d 20 34 35 35 | 2c 34 36 32 20 2d 2d 2d |X--- 455|,462 ---|
|000038e0| 2d 2d 0a 58 20 20 23 65 | 6c 73 65 0a 58 20 20 26 |--.X #e|lse.X &|
|000038f0| 09 09 46 4f 52 4d 3d 27 | 46 4f 52 4d 41 54 54 45 |..FORM='|FORMATTE|
|00003900| 44 27 2c 41 43 43 45 53 | 53 3d 27 53 45 51 55 45 |D',ACCES|S='SEQUE|
|00003910| 4e 54 49 41 4c 27 2c 45 | 52 52 3d 31 39 30 30 29 |NTIAL',E|RR=1900)|
|00003920| 0a 58 20 20 23 65 6e 64 | 69 66 0a 58 21 20 09 72 |.X #end|if.X! .r|
|00003930| 65 77 69 6e 64 28 75 6e | 69 74 3d 33 2c 20 65 72 |ewind(un|it=3, er|
|00003940| 72 3d 31 39 30 30 29 0a | 58 21 20 09 52 45 41 44 |r=1900).|X! .READ|
|00003950| 28 33 2c 31 33 30 29 20 | 49 2c 4a 2c 4b 0a 58 20 |(3,130) |I,J,K.X |
|00003960| 20 43 09 09 09 09 09 09 | 21 47 45 54 20 56 45 52 | C......|!GET VER|
|00003970| 53 49 4f 4e 2e 0a 58 20 | 20 09 49 46 28 28 49 2e |SION..X | .IF((I.|
|00003980| 4e 45 2e 56 4d 41 4a 29 | 2e 4f 52 2e 28 4a 2e 4e |NE.VMAJ)|.OR.(J.N|
|00003990| 45 2e 56 4d 49 4e 29 29 | 0a 58 20 20 26 09 09 47 |E.VMIN))|.X &..G|
|000039a0| 4f 20 54 4f 20 31 39 32 | 35 0a 58 2a 2a 2a 2a 2a |O TO 192|5.X*****|
|000039b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 58 2a 2a 2a 20 |********|**.X*** |
|000039c0| 34 37 34 2c 34 38 33 0a | 58 20 20 31 35 30 09 46 |474,483.|X 150.F|
|000039d0| 4f 52 4d 41 54 28 27 20 | 52 45 53 54 4f 52 49 4e |ORMAT(' |RESTORIN|
|000039e0| 47 20 46 52 4f 4d 20 22 | 64 69 6e 64 78 2e 64 61 |G FROM "|dindx.da|
|000039f0| 74 22 27 29 0a 58 20 20 | 23 65 6e 64 69 66 20 4e |t"').X |#endif N|
|00003a00| 4f 43 43 0a 58 20 20 23 | 65 6e 64 69 66 20 64 65 |OCC.X #|endif de|
|00003a10| 62 75 67 0a 58 21 20 09 | 52 45 41 44 28 31 2c 31 |bug.X! .|READ(1,1|
|00003a20| 33 30 29 20 4d 58 53 43 | 4f 52 2c 53 54 52 42 49 |30) MXSC|OR,STRBI|
|00003a30| 54 2c 45 47 4d 58 53 43 | 0a 58 21 20 09 52 45 41 |T,EGMXSC|.X! .REA|
|00003a40| 44 28 31 2c 31 33 30 29 | 20 52 4c 4e 54 2c 52 44 |D(1,130)| RLNT,RD|
|00003a50| 45 53 43 32 2c 52 44 45 | 53 43 31 2c 52 45 58 49 |ESC2,RDE|SC1,REXI|
|00003a60| 54 2c 52 41 43 54 49 4f | 2c 52 56 41 4c 2c 52 46 |T,RACTIO|,RVAL,RF|
|00003a70| 4c 41 47 0a 58 21 20 09 | 52 45 41 44 28 31 2c 31 |LAG.X! .|READ(1,1|
|00003a80| 33 30 29 20 58 4c 4e 54 | 2c 54 52 41 56 45 4c 0a |30) XLNT|,TRAVEL.|
|00003a90| 58 21 20 09 52 45 41 44 | 28 31 2c 31 33 30 29 20 |X! .READ|(1,130) |
|00003aa0| 4f 4c 4e 54 2c 4f 44 45 | 53 43 31 2c 4f 44 45 53 |OLNT,ODE|SC1,ODES|
|00003ab0| 43 32 2c 4f 44 45 53 43 | 4f 2c 4f 41 43 54 49 4f |C2,ODESC|O,OACTIO|
|00003ac0| 2c 4f 46 4c 41 47 31 2c | 4f 46 4c 41 47 32 2c 0a |,OFLAG1,|OFLAG2,.|
|00003ad0| 58 20 20 26 09 09 4f 46 | 56 41 4c 2c 4f 54 56 41 |X &..OF|VAL,OTVA|
|00003ae0| 4c 2c 4f 53 49 5a 45 2c | 4f 43 41 50 41 43 2c 4f |L,OSIZE,|OCAPAC,O|
|00003af0| 52 4f 4f 4d 2c 4f 41 44 | 56 2c 4f 43 41 4e 2c 0a |ROOM,OAD|V,OCAN,.|
|00003b00| 58 20 20 26 09 09 4f 52 | 45 41 44 0a 58 20 20 09 |X &..OR|EAD.X .|
|00003b10| 52 45 41 44 28 31 2c 31 | 33 30 29 20 52 32 4c 4e |READ(1,1|30) R2LN|
|00003b20| 54 2c 4f 52 4f 4f 4d 32 | 2c 52 52 4f 4f 4d 32 0a |T,OROOM2|,RROOM2.|
|00003b30| 58 0a 58 2d 2d 2d 20 34 | 37 34 2c 34 38 33 20 2d |X.X--- 4|74,483 -|
|00003b40| 2d 2d 2d 2d 0a 58 20 20 | 31 35 30 09 46 4f 52 4d |----.X |150.FORM|
|00003b50| 41 54 28 27 20 52 45 53 | 54 4f 52 49 4e 47 20 46 |AT(' RES|TORING F|
|00003b60| 52 4f 4d 20 22 64 69 6e | 64 78 2e 64 61 74 22 27 |ROM "din|dx.dat"'|
|00003b70| 29 0a 58 20 20 23 65 6e | 64 69 66 20 4e 4f 43 43 |).X #en|dif NOCC|
|00003b80| 0a 58 20 20 23 65 6e 64 | 69 66 20 64 65 62 75 67 |.X #end|if debug|
|00003b90| 0a 58 21 20 09 52 45 41 | 44 28 33 2c 31 33 30 29 |.X! .REA|D(3,130)|
|00003ba0| 20 4d 58 53 43 4f 52 2c | 53 54 52 42 49 54 2c 45 | MXSCOR,|STRBIT,E|
|00003bb0| 47 4d 58 53 43 0a 58 21 | 20 09 52 45 41 44 28 33 |GMXSC.X!| .READ(3|
|00003bc0| 2c 31 33 30 29 20 52 4c | 4e 54 2c 52 44 45 53 43 |,130) RL|NT,RDESC|
|00003bd0| 32 2c 52 44 45 53 43 31 | 2c 52 45 58 49 54 2c 52 |2,RDESC1|,REXIT,R|
|00003be0| 41 43 54 49 4f 2c 52 56 | 41 4c 2c 52 46 4c 41 47 |ACTIO,RV|AL,RFLAG|
|00003bf0| 0a 58 21 20 09 52 45 41 | 44 28 33 2c 31 33 30 29 |.X! .REA|D(3,130)|
|00003c00| 20 58 4c 4e 54 2c 54 52 | 41 56 45 4c 0a 58 21 20 | XLNT,TR|AVEL.X! |
|00003c10| 09 52 45 41 44 28 33 2c | 31 33 30 29 20 4f 4c 4e |.READ(3,|130) OLN|
|00003c20| 54 2c 4f 44 45 53 43 31 | 2c 4f 44 45 53 43 32 2c |T,ODESC1|,ODESC2,|
|00003c30| 4f 44 45 53 43 4f 2c 4f | 41 43 54 49 4f 2c 4f 46 |ODESCO,O|ACTIO,OF|
|00003c40| 4c 41 47 31 2c 4f 46 4c | 41 47 32 2c 0a 58 20 20 |LAG1,OFL|AG2,.X |
|00003c50| 26 09 09 4f 46 56 41 4c | 2c 4f 54 56 41 4c 2c 4f |&..OFVAL|,OTVAL,O|
|00003c60| 53 49 5a 45 2c 4f 43 41 | 50 41 43 2c 4f 52 4f 4f |SIZE,OCA|PAC,OROO|
|00003c70| 4d 2c 4f 41 44 56 2c 4f | 43 41 4e 2c 0a 58 20 20 |M,OADV,O|CAN,.X |
|00003c80| 26 09 09 4f 52 45 41 44 | 0a 58 20 20 09 52 45 41 |&..OREAD|.X .REA|
|00003c90| 44 28 33 2c 31 33 30 29 | 20 52 32 4c 4e 54 2c 4f |D(3,130)| R2LNT,O|
|00003ca0| 52 4f 4f 4d 32 2c 52 52 | 4f 4f 4d 32 0a 58 2a 2a |ROOM2,RR|OOM2.X**|
|00003cb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 58 2a |********|*****.X*|
|00003cc0| 2a 2a 20 34 38 30 2c 34 | 39 31 0a 58 20 20 09 52 |** 480,4|91.X .R|
|00003cd0| 45 41 44 28 31 2c 31 33 | 30 29 20 4f 4c 4e 54 2c |EAD(1,13|0) OLNT,|
|00003ce0| 4f 44 45 53 43 31 2c 4f | 44 45 53 43 32 2c 4f 44 |ODESC1,O|DESC2,OD|
|00003cf0| 45 53 43 4f 2c 4f 41 43 | 54 49 4f 2c 4f 46 4c 41 |ESCO,OAC|TIO,OFLA|
|00003d00| 47 31 2c 4f 46 4c 41 47 | 32 2c 0a 58 20 20 26 09 |G1,OFLAG|2,.X &.|
|00003d10| 09 4f 46 56 41 4c 2c 4f | 54 56 41 4c 2c 4f 53 49 |.OFVAL,O|TVAL,OSI|
|00003d20| 5a 45 2c 4f 43 41 50 41 | 43 2c 4f 52 4f 4f 4d 2c |ZE,OCAPA|C,OROOM,|
|00003d30| 4f 41 44 56 2c 4f 43 41 | 4e 2c 0a 58 20 20 26 09 |OADV,OCA|N,.X &.|
|00003d40| 09 4f 52 45 41 44 0a 58 | 21 20 09 52 45 41 44 28 |.OREAD.X|! .READ(|
|00003d50| 31 2c 31 33 30 29 20 52 | 32 4c 4e 54 2c 4f 52 4f |1,130) R|2LNT,ORO|
|00003d60| 4f 4d 32 2c 52 52 4f 4f | 4d 32 0a 58 21 20 09 52 |OM2,RROO|M2.X! .R|
|00003d70| 45 41 44 28 31 2c 31 33 | 30 29 20 43 4c 4e 54 2c |EAD(1,13|0) CLNT,|
|00003d80| 43 54 49 43 4b 2c 43 41 | 43 54 49 4f 0a 58 21 20 |CTICK,CA|CTIO.X! |
|00003d90| 09 52 45 41 44 28 31 2c | 31 33 35 29 20 43 46 4c |.READ(1,|135) CFL|
|00003da0| 41 47 0a 58 21 20 09 52 | 45 41 44 28 31 2c 31 33 |AG.X! .R|EAD(1,13|
|00003db0| 30 29 20 56 4c 4e 54 2c | 56 49 4c 4c 4e 53 2c 56 |0) VLNT,|VILLNS,V|
|00003dc0| 50 52 4f 42 2c 56 4f 50 | 50 53 2c 56 42 45 53 54 |PROB,VOP|PS,VBEST|
|00003dd0| 2c 56 4d 45 4c 45 45 0a | 58 21 20 09 52 45 41 44 |,VMELEE.|X! .READ|
|00003de0| 28 31 2c 31 33 30 29 20 | 41 4c 4e 54 2c 41 52 4f |(1,130) |ALNT,ARO|
|00003df0| 4f 4d 2c 41 53 43 4f 52 | 45 2c 41 56 45 48 49 43 |OM,ASCOR|E,AVEHIC|
|00003e00| 2c 41 4f 42 4a 2c 41 41 | 43 54 49 4f 2c 41 53 54 |,AOBJ,AA|CTIO,AST|
|00003e10| 52 45 4e 2c 41 46 4c 41 | 47 0a 58 21 20 09 52 45 |REN,AFLA|G.X! .RE|
|00003e20| 41 44 28 31 2c 31 33 30 | 29 20 4d 42 41 53 45 2c |AD(1,130|) MBASE,|
|00003e30| 4d 4c 4e 54 2c 52 54 45 | 58 54 0a 58 20 20 43 0a |MLNT,RTE|XT.X C.|
|00003e40| 58 20 20 09 43 4c 4f 53 | 45 28 31 29 0a 58 20 20 |X .CLOS|E(1).X |
|00003e50| 09 47 4f 20 54 4f 20 31 | 30 32 35 0a 58 0a 58 2d |.GO TO 1|025.X.X-|
|00003e60| 2d 2d 20 34 38 30 2c 34 | 39 31 20 2d 2d 2d 2d 2d |-- 480,4|91 -----|
|00003e70| 0a 58 20 20 09 52 45 41 | 44 28 33 2c 31 33 30 29 |.X .REA|D(3,130)|
|00003e80| 20 4f 4c 4e 54 2c 4f 44 | 45 53 43 31 2c 4f 44 45 | OLNT,OD|ESC1,ODE|
|00003e90| 53 43 32 2c 4f 44 45 53 | 43 4f 2c 4f 41 43 54 49 |SC2,ODES|CO,OACTI|
|00003ea0| 4f 2c 4f 46 4c 41 47 31 | 2c 4f 46 4c 41 47 32 2c |O,OFLAG1|,OFLAG2,|
|00003eb0| 0a 58 20 20 26 09 09 4f | 46 56 41 4c 2c 4f 54 56 |.X &..O|FVAL,OTV|
|00003ec0| 41 4c 2c 4f 53 49 5a 45 | 2c 4f 43 41 50 41 43 2c |AL,OSIZE|,OCAPAC,|
|00003ed0| 4f 52 4f 4f 4d 2c 4f 41 | 44 56 2c 4f 43 41 4e 2c |OROOM,OA|DV,OCAN,|
|00003ee0| 0a 58 20 20 26 09 09 4f | 52 45 41 44 0a 58 21 20 |.X &..O|READ.X! |
|00003ef0| 09 52 45 41 44 28 33 2c | 31 33 30 29 20 52 32 4c |.READ(3,|130) R2L|
|00003f00| 4e 54 2c 4f 52 4f 4f 4d | 32 2c 52 52 4f 4f 4d 32 |NT,OROOM|2,RROOM2|
|00003f10| 0a 58 21 20 09 52 45 41 | 44 28 33 2c 31 33 30 29 |.X! .REA|D(3,130)|
|00003f20| 20 43 4c 4e 54 2c 43 54 | 49 43 4b 2c 43 41 43 54 | CLNT,CT|ICK,CACT|
|00003f30| 49 4f 0a 58 21 20 09 52 | 45 41 44 28 33 2c 31 33 |IO.X! .R|EAD(3,13|
|00003f40| 35 29 20 43 46 4c 41 47 | 0a 58 21 20 09 52 45 41 |5) CFLAG|.X! .REA|
|00003f50| 44 28 33 2c 31 33 30 29 | 20 56 4c 4e 54 2c 56 49 |D(3,130)| VLNT,VI|
|00003f60| 4c 4c 4e 53 2c 56 50 52 | 4f 42 2c 56 4f 50 50 53 |LLNS,VPR|OB,VOPPS|
|00003f70| 2c 56 42 45 53 54 2c 56 | 4d 45 4c 45 45 0a 58 21 |,VBEST,V|MELEE.X!|
|00003f80| 20 09 52 45 41 44 28 33 | 2c 31 33 30 29 20 41 4c | .READ(3|,130) AL|
|00003f90| 4e 54 2c 41 52 4f 4f 4d | 2c 41 53 43 4f 52 45 2c |NT,AROOM|,ASCORE,|
|00003fa0| 41 56 45 48 49 43 2c 41 | 4f 42 4a 2c 41 41 43 54 |AVEHIC,A|OBJ,AACT|
|00003fb0| 49 4f 2c 41 53 54 52 45 | 4e 2c 41 46 4c 41 47 0a |IO,ASTRE|N,AFLAG.|
|00003fc0| 58 21 20 09 52 45 41 44 | 28 33 2c 31 33 30 29 20 |X! .READ|(3,130) |
|00003fd0| 4d 42 41 53 45 2c 4d 4c | 4e 54 2c 52 54 45 58 54 |MBASE,ML|NT,RTEXT|
|00003fe0| 0a 58 20 20 43 0a 58 20 | 20 43 09 64 6f 6e 27 74 |.X C.X | C.don't|
|00003ff0| 20 43 4c 4f 53 45 20 69 | 6e 64 65 78 20 66 69 6c | CLOSE i|ndex fil|
|00004000| 65 2c 20 65 76 65 6e 20 | 74 68 6f 75 67 68 20 69 |e, even |though i|
|00004010| 74 20 77 6f 6e 27 74 20 | 62 65 20 75 73 65 64 20 |t won't |be used |
|00004020| 61 67 61 69 6e 0a 58 20 | 20 43 0a 58 2a 2a 2a 2a |again.X | C.X****|
|00004030| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 58 2a 2a 2a |********|***.X***|
|00004040| 20 34 38 37 2c 34 39 33 | 0a 58 20 20 09 52 45 41 | 487,493|.X .REA|
|00004050| 44 28 31 2c 31 33 30 29 | 20 41 4c 4e 54 2c 41 52 |D(1,130)| ALNT,AR|
|00004060| 4f 4f 4d 2c 41 53 43 4f | 52 45 2c 41 56 45 48 49 |OOM,ASCO|RE,AVEHI|
|00004070| 43 2c 41 4f 42 4a 2c 41 | 41 43 54 49 4f 2c 41 53 |C,AOBJ,A|ACTIO,AS|
|00004080| 54 52 45 4e 2c 41 46 4c | 41 47 0a 58 20 20 09 52 |TREN,AFL|AG.X .R|
|00004090| 45 41 44 28 31 2c 31 33 | 30 29 20 4d 42 41 53 45 |EAD(1,13|0) MBASE|
|000040a0| 2c 4d 4c 4e 54 2c 52 54 | 45 58 54 0a 58 20 20 43 |,MLNT,RT|EXT.X C|
|000040b0| 0a 58 21 20 09 43 4c 4f | 53 45 28 31 29 0a 58 20 |.X! .CLO|SE(1).X |
|000040c0| 20 09 47 4f 20 54 4f 20 | 31 30 32 35 0a 58 20 20 | .GO TO |1025.X |
|000040d0| 43 09 09 09 09 09 09 21 | 49 4e 49 54 20 44 4f 4e |C......!|INIT DON|
|000040e0| 45 2e 0a 58 20 20 43 0a | 58 0a 58 2d 2d 2d 20 34 |E..X C.|X.X--- 4|
|000040f0| 38 37 2c 34 39 34 20 2d | 2d 2d 2d 2d 0a 58 20 20 |87,494 -|----.X |
|00004100| 09 52 45 41 44 28 33 2c | 31 33 30 29 20 41 4c 4e |.READ(3,|130) ALN|
|00004110| 54 2c 41 52 4f 4f 4d 2c | 41 53 43 4f 52 45 2c 41 |T,AROOM,|ASCORE,A|
|00004120| 56 45 48 49 43 2c 41 4f | 42 4a 2c 41 41 43 54 49 |VEHIC,AO|BJ,AACTI|
|00004130| 4f 2c 41 53 54 52 45 4e | 2c 41 46 4c 41 47 0a 58 |O,ASTREN|,AFLAG.X|
|00004140| 20 20 09 52 45 41 44 28 | 33 2c 31 33 30 29 20 4d | .READ(|3,130) M|
|00004150| 42 41 53 45 2c 4d 4c 4e | 54 2c 52 54 45 58 54 0a |BASE,MLN|T,RTEXT.|
|00004160| 58 20 20 43 0a 58 21 20 | 43 09 64 6f 6e 27 74 20 |X C.X! |C.don't |
|00004170| 43 4c 4f 53 45 20 69 6e | 64 65 78 20 66 69 6c 65 |CLOSE in|dex file|
|00004180| 2c 20 65 76 65 6e 20 74 | 68 6f 75 67 68 20 69 74 |, even t|hough it|
|00004190| 20 77 6f 6e 27 74 20 62 | 65 20 75 73 65 64 20 61 | won't b|e used a|
|000041a0| 67 61 69 6e 0a 58 21 20 | 43 0a 58 20 20 09 47 4f |gain.X! |C.X .GO|
|000041b0| 20 54 4f 20 31 30 32 35 | 0a 58 20 20 43 09 09 09 | TO 1025|.X C...|
|000041c0| 09 09 09 21 49 4e 49 54 | 20 44 4f 4e 45 2e 0a 58 |...!INIT| DONE..X|
|000041d0| 20 20 43 0a 58 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | C.X***|********|
|000041e0| 2a 2a 2a 2a 0a 58 2a 2a | 2a 20 35 31 31 2c 35 31 |****.X**|* 511,51|
|000041f0| 37 0a 58 20 20 09 48 45 | 52 45 3d 41 52 4f 4f 4d |7.X .HE|RE=AROOM|
|00004200| 28 57 49 4e 4e 45 52 29 | 0a 58 20 20 09 54 48 46 |(WINNER)|.X .THF|
|00004210| 50 4f 53 3d 4f 52 4f 4f | 4d 28 54 48 49 45 46 29 |POS=OROO|M(THIEF)|
|00004220| 0a 58 20 20 09 42 4c 4f | 43 3d 4f 52 4f 4f 4d 28 |.X .BLO|C=OROOM(|
|00004230| 42 41 4c 4c 4f 29 0a 58 | 21 20 09 49 4e 49 54 3d |BALLO).X|! .INIT=|
|00004240| 2e 54 52 55 45 2e 0a 58 | 20 20 43 0a 58 20 20 23 |.TRUE..X| C.X #|
|00004250| 69 66 64 65 66 20 64 65 | 62 75 67 0a 58 20 20 09 |ifdef de|bug.X .|
|00004260| 50 52 49 4e 54 20 31 30 | 35 30 2c 52 4c 4e 54 2c |PRINT 10|50,RLNT,|
|00004270| 52 4d 41 58 2c 58 4c 4e | 54 2c 58 4d 41 58 2c 4f |RMAX,XLN|T,XMAX,O|
|00004280| 4c 4e 54 2c 4f 4d 41 58 | 2c 4d 4c 4e 54 2c 4d 4d |LNT,OMAX|,MLNT,MM|
|00004290| 41 58 2c 0a 58 0a 58 2d | 2d 2d 20 35 31 32 2c 35 |AX,.X.X-|-- 512,5|
|000042a0| 31 38 20 2d 2d 2d 2d 2d | 0a 58 20 20 09 48 45 52 |18 -----|.X .HER|
|000042b0| 45 3d 41 52 4f 4f 4d 28 | 57 49 4e 4e 45 52 29 0a |E=AROOM(|WINNER).|
|000042c0| 58 20 20 09 54 48 46 50 | 4f 53 3d 4f 52 4f 4f 4d |X .THFP|OS=OROOM|
|000042d0| 28 54 48 49 45 46 29 0a | 58 20 20 09 42 4c 4f 43 |(THIEF).|X .BLOC|
|000042e0| 3d 4f 52 4f 4f 4d 28 42 | 41 4c 4c 4f 29 0a 58 21 |=OROOM(B|ALLO).X!|
|000042f0| 20 09 44 49 4e 49 54 3d | 2e 54 52 55 45 2e 0a 58 | .DINIT=|.TRUE..X|
|00004300| 20 20 43 0a 58 20 20 23 | 69 66 64 65 66 20 64 65 | C.X #|ifdef de|
|00004310| 62 75 67 0a 58 20 20 09 | 50 52 49 4e 54 20 31 30 |bug.X .|PRINT 10|
|00004320| 35 30 2c 52 4c 4e 54 2c | 52 4d 41 58 2c 58 4c 4e |50,RLNT,|RMAX,XLN|
|00004330| 54 2c 58 4d 41 58 2c 4f | 4c 4e 54 2c 4f 4d 41 58 |T,XMAX,O|LNT,OMAX|
|00004340| 2c 4d 4c 4e 54 2c 4d 4d | 41 58 2c 0a 58 2a 2a 2a |,MLNT,MM|AX,.X***|
|00004350| 20 64 6d 61 69 6e 2e 46 | 2e 6f 72 69 67 09 4d 6f | dmain.F|.orig.Mo|
|00004360| 6e 20 4f 63 74 20 32 34 | 20 31 35 3a 32 38 3a 35 |n Oct 24| 15:28:5|
|00004370| 36 20 31 39 38 38 0a 58 | 2d 2d 2d 20 64 6d 61 69 |6 1988.X|--- dmai|
|00004380| 6e 2e 46 09 4d 6f 6e 20 | 4f 63 74 20 32 34 20 31 |n.F.Mon |Oct 24 1|
|00004390| 35 3a 32 38 3a 35 35 20 | 31 39 38 38 0a 58 2a 2a |5:28:55 |1988.X**|
|000043a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 58 2a |********|*****.X*|
|000043b0| 2a 2a 20 39 2c 31 35 0a | 58 20 20 43 20 44 45 43 |** 9,15.|X C DEC|
|000043c0| 4c 41 52 41 54 49 4f 4e | 53 0a 58 20 20 43 0a 58 |LARATION|S.X C.X|
|000043d0| 20 20 09 49 4d 50 4c 49 | 43 49 54 20 49 4e 54 45 | .IMPLI|CIT INTE|
|000043e0| 47 45 52 20 28 41 2d 5a | 29 0a 58 21 20 09 4c 4f |GER (A-Z|).X! .LO|
|000043f0| 47 49 43 41 4c 20 49 4e | 49 54 0a 58 20 20 23 69 |GICAL IN|IT.X #i|
|00004400| 6e 63 6c 75 64 65 20 22 | 70 61 72 73 65 72 2e 68 |nclude "|parser.h|
|00004410| 22 0a 58 20 20 23 69 6e | 63 6c 75 64 65 20 22 67 |".X #in|clude "g|
|00004420| 61 6d 65 73 74 61 74 65 | 2e 68 22 0a 58 20 20 23 |amestate|.h".X #|
|00004430| 69 6e 63 6c 75 64 65 20 | 22 73 74 61 74 65 2e 68 |include |"state.h|
|00004440| 22 0a 58 0a 58 2d 2d 2d | 20 39 2c 31 35 20 2d 2d |".X.X---| 9,15 --|
|00004450| 2d 2d 2d 0a 58 20 20 43 | 20 44 45 43 4c 41 52 41 |---.X C| DECLARA|
|00004460| 54 49 4f 4e 53 0a 58 20 | 20 43 0a 58 20 20 09 49 |TIONS.X | C.X .I|
|00004470| 4d 50 4c 49 43 49 54 20 | 49 4e 54 45 47 45 52 20 |MPLICIT |INTEGER |
|00004480| 28 41 2d 5a 29 0a 58 21 | 20 09 4c 4f 47 49 43 41 |(A-Z).X!| .LOGICA|
|00004490| 4c 20 44 49 4e 49 54 0a | 58 20 20 23 69 6e 63 6c |L DINIT.|X #incl|
|000044a0| 75 64 65 20 22 70 61 72 | 73 65 72 2e 68 22 0a 58 |ude "par|ser.h".X|
|000044b0| 20 20 23 69 6e 63 6c 75 | 64 65 20 22 67 61 6d 65 | #inclu|de "game|
|000044c0| 73 74 61 74 65 2e 68 22 | 0a 58 20 20 23 69 6e 63 |state.h"|.X #inc|
|000044d0| 6c 75 64 65 20 22 73 74 | 61 74 65 2e 68 22 0a 58 |lude "st|ate.h".X|
|000044e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|000044f0| 58 2a 2a 2a 20 31 39 33 | 2c 31 39 39 0a 58 20 20 |X*** 193|,199.X |
|00004500| 43 20 31 29 20 49 4e 49 | 54 49 41 4c 49 5a 45 20 |C 1) INI|TIALIZE |
|00004510| 44 41 54 41 20 53 54 52 | 55 43 54 55 52 45 53 0a |DATA STR|UCTURES.|
|00004520| 58 20 20 43 20 32 29 20 | 50 4c 41 59 20 47 41 4d |X C 2) |PLAY GAM|
|00004530| 45 0a 58 20 20 43 0a 58 | 21 20 09 49 46 28 49 4e |E.X C.X|! .IF(IN|
|00004540| 49 54 28 58 29 29 20 43 | 41 4c 4c 20 47 41 4d 45 |IT(X)) C|ALL GAME|
|00004550| 0a 58 20 20 43 09 09 09 | 09 09 09 21 49 46 20 49 |.X C...|...!IF I|
|00004560| 4e 49 54 2c 20 50 4c 41 | 59 20 47 41 4d 45 2e 0a |NIT, PLA|Y GAME..|
|00004570| 58 20 20 09 43 41 4c 4c | 20 45 58 49 54 0a 58 20 |X .CALL| EXIT.X |
|00004580| 20 43 09 09 09 09 09 09 | 21 44 4f 4e 45 0a 58 0a | C......|!DONE.X.|
|00004590| 58 2d 2d 2d 20 31 39 33 | 2c 31 39 39 20 2d 2d 2d |X--- 193|,199 ---|
|000045a0| 2d 2d 0a 58 20 20 43 20 | 31 29 20 49 4e 49 54 49 |--.X C |1) INITI|
|000045b0| 41 4c 49 5a 45 20 44 41 | 54 41 20 53 54 52 55 43 |ALIZE DA|TA STRUC|
|000045c0| 54 55 52 45 53 0a 58 20 | 20 43 20 32 29 20 50 4c |TURES.X | C 2) PL|
|000045d0| 41 59 20 47 41 4d 45 0a | 58 20 20 43 0a 58 21 20 |AY GAME.|X C.X! |
|000045e0| 09 49 46 28 44 49 4e 49 | 54 28 58 29 29 20 43 41 |.IF(DINI|T(X)) CA|
|000045f0| 4c 4c 20 47 41 4d 45 0a | 58 20 20 43 09 09 09 09 |LL GAME.|X C....|
|00004600| 09 09 21 49 46 20 49 4e | 49 54 2c 20 50 4c 41 59 |..!IF IN|IT, PLAY|
|00004610| 20 47 41 4d 45 2e 0a 58 | 20 20 09 43 41 4c 4c 20 | GAME..X| .CALL |
|00004620| 45 58 49 54 0a 58 20 20 | 43 09 09 09 09 09 09 21 |EXIT.X |C......!|
|00004630| 44 4f 4e 45 0a 58 2a 2a | 2a 20 64 73 6f 33 2e 46 |DONE.X**|* dso3.F|
|00004640| 2e 6f 72 69 67 09 4d 6f | 6e 20 4f 63 74 20 32 34 |.orig.Mo|n Oct 24|
|00004650| 20 31 35 3a 32 38 3a 35 | 36 20 31 39 38 38 0a 58 | 15:28:5|6 1988.X|
|00004660| 2d 2d 2d 20 64 73 6f 33 | 2e 46 09 4d 6f 6e 20 4f |--- dso3|.F.Mon O|
|00004670| 63 74 20 32 34 20 31 35 | 3a 32 38 3a 35 36 20 31 |ct 24 15|:28:56 1|
|00004680| 39 38 38 0a 58 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |988.X***|********|
|00004690| 2a 2a 2a 2a 0a 58 2a 2a | 2a 20 36 34 2c 37 30 0a |****.X**|* 64,70.|
|000046a0| 58 20 20 43 20 4f 42 4a | 45 43 54 20 49 53 20 4f |X C OBJ|ECT IS O|
|000046b0| 4e 20 4c 49 53 54 2e 2e | 2e 20 49 53 20 49 54 20 |N LIST..|. IS IT |
|000046c0| 41 20 4d 41 54 43 48 3f | 0a 58 20 20 43 0a 58 20 |A MATCH?|.X C.X |
|000046d0| 20 09 20 20 49 46 28 61 | 6e 64 28 4f 46 4c 41 47 | . IF(a|nd(OFLAG|
|000046e0| 31 28 49 29 2c 56 49 53 | 49 42 54 29 2e 45 51 2e |1(I),VIS|IBT).EQ.|
|000046f0| 30 29 20 47 4f 20 54 4f | 20 31 30 30 30 0a 58 21 |0) GO TO| 1000.X!|
|00004700| 20 09 20 20 49 46 28 61 | 6e 64 28 6e 6f 74 28 4e | . IF(a|nd(not(N|
|00004710| 4f 43 41 52 45 29 2c 28 | 61 6e 64 28 4f 46 4c 41 |OCARE),(|and(OFLA|
|00004720| 47 31 28 49 29 2c 54 41 | 4b 45 42 54 29 2e 45 51 |G1(I),TA|KEBT).EQ|
|00004730| 2e 30 29 29 20 2e 4f 52 | 2e 0a 58 20 20 26 09 09 |.0)) .OR|..X &..|
|00004740| 28 28 61 6e 64 28 4f 46 | 4c 41 47 31 28 49 29 2c |((and(OF|LAG1(I),|
|00004750| 46 31 29 2e 45 51 2e 30 | 29 2e 41 4e 44 2e 0a 58 |F1).EQ.0|).AND..X|
|00004760| 20 20 26 09 09 20 28 61 | 6e 64 28 4f 46 4c 41 47 | &.. (a|nd(OFLAG|
|00004770| 32 28 49 29 2c 46 32 29 | 2e 45 51 2e 30 29 29 29 |2(I),F2)|.EQ.0)))|
|00004780| 20 47 4f 20 54 4f 20 35 | 30 30 0a 58 20 20 09 20 | GO TO 5|00.X . |
|00004790| 20 49 46 28 46 57 49 4d | 2e 45 51 2e 30 29 20 47 | IF(FWIM|.EQ.0) G|
|000047a0| 4f 20 54 4f 20 34 30 30 | 0a 58 0a 58 2d 2d 2d 20 |O TO 400|.X.X--- |
|000047b0| 36 34 2c 37 30 20 2d 2d | 2d 2d 2d 0a 58 20 20 43 |64,70 --|---.X C|
|000047c0| 20 4f 42 4a 45 43 54 20 | 49 53 20 4f 4e 20 4c 49 | OBJECT |IS ON LI|
|000047d0| 53 54 2e 2e 2e 20 49 53 | 20 49 54 20 41 20 4d 41 |ST... IS| IT A MA|
|000047e0| 54 43 48 3f 0a 58 20 20 | 43 0a 58 20 20 09 20 20 |TCH?.X |C.X . |
|000047f0| 49 46 28 61 6e 64 28 4f | 46 4c 41 47 31 28 49 29 |IF(and(O|FLAG1(I)|
|00004800| 2c 56 49 53 49 42 54 29 | 2e 45 51 2e 30 29 20 47 |,VISIBT)|.EQ.0) G|
|00004810| 4f 20 54 4f 20 31 30 30 | 30 0a 58 21 20 09 20 20 |O TO 100|0.X! . |
|00004820| 49 46 28 20 28 28 2e 4e | 4f 54 2e 20 4e 4f 43 41 |IF( ((.N|OT. NOCA|
|00004830| 52 45 29 20 2e 41 4e 44 | 2e 20 28 61 6e 64 28 4f |RE) .AND|. (and(O|
|00004840| 46 4c 41 47 31 28 49 29 | 2c 54 41 4b 45 42 54 29 |FLAG1(I)|,TAKEBT)|
|00004850| 2e 45 51 2e 30 29 29 20 | 2e 4f 52 2e 0a 58 20 20 |.EQ.0)) |.OR..X |
|00004860| 26 09 09 28 28 61 6e 64 | 28 4f 46 4c 41 47 31 28 |&..((and|(OFLAG1(|
|00004870| 49 29 2c 46 31 29 2e 45 | 51 2e 30 29 2e 41 4e 44 |I),F1).E|Q.0).AND|
|00004880| 2e 0a 58 20 20 26 09 09 | 20 28 61 6e 64 28 4f 46 |..X &..| (and(OF|
|00004890| 4c 41 47 32 28 49 29 2c | 46 32 29 2e 45 51 2e 30 |LAG2(I),|F2).EQ.0|
|000048a0| 29 29 29 20 47 4f 20 54 | 4f 20 35 30 30 0a 58 20 |))) GO T|O 500.X |
|000048b0| 20 09 20 20 49 46 28 46 | 57 49 4d 2e 45 51 2e 30 | . IF(F|WIM.EQ.0|
|000048c0| 29 20 47 4f 20 54 4f 20 | 34 30 30 0a 58 2a 2a 2a |) GO TO |400.X***|
|000048d0| 20 64 73 6f 37 2e 46 2e | 6f 72 69 67 09 4d 6f 6e | dso7.F.|orig.Mon|
|000048e0| 20 4f 63 74 20 32 34 20 | 31 35 3a 32 38 3a 35 36 | Oct 24 |15:28:56|
|000048f0| 20 31 39 38 38 0a 58 2d | 2d 2d 20 64 73 6f 37 2e | 1988.X-|-- dso7.|
|00004900| 46 09 4d 6f 6e 20 4f 63 | 74 20 32 34 20 31 35 3a |F.Mon Oc|t 24 15:|
|00004910| 32 38 3a 35 36 20 31 39 | 38 38 0a 58 2a 2a 2a 2a |28:56 19|88.X****|
|00004920| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0a 58 2a 2a 2a |********|***.X***|
|00004930| 20 32 33 2c 32 39 0a 58 | 20 20 43 09 09 09 09 09 | 23,29.X| C.....|
|00004940| 09 21 55 4e 42 49 41 53 | 2c 20 43 4f 4d 50 55 54 |.!UNBIAS|, COMPUT|
|00004950| 45 20 53 55 4d 53 2e 0a | 58 20 20 09 20 20 55 4b |E SUMS..|X . UK|
|00004960| 45 59 57 28 49 29 3d 63 | 68 61 72 28 69 63 68 61 |EYW(I)=c|har(icha|
|00004970| 72 28 4b 45 59 57 28 49 | 29 29 2d 36 34 29 0a 58 |r(KEYW(I|))-64).X|
|00004980| 20 20 09 20 20 49 46 28 | 49 4e 57 28 4a 29 2e 4c | . IF(|INW(J).L|
|00004990| 45 2e 63 68 61 72 28 36 | 34 29 29 20 4a 3d 31 0a |E.char(6|4)) J=1.|
|000049a0| 58 21 20 09 20 20 55 49 | 4e 57 28 49 29 3d 69 63 |X! . UI|NW(I)=ic|
|000049b0| 68 61 72 28 69 63 68 61 | 72 28 49 4e 57 28 4a 29 |har(icha|r(INW(J)|
|000049c0| 29 2d 36 34 29 0a 58 20 | 20 09 20 20 55 4b 45 59 |)-64).X | . UKEY|
|000049d0| 57 53 3d 55 4b 45 59 57 | 53 2b 69 63 68 61 72 28 |WS=UKEYW|S+ichar(|
|000049e0| 55 4b 45 59 57 28 49 29 | 29 0a 58 20 20 09 20 20 |UKEYW(I)|).X . |
|000049f0| 55 49 4e 57 53 3d 55 49 | 4e 57 53 2b 55 49 4e 57 |UINWS=UI|NWS+UINW|
|00004a00| 28 49 29 0a 58 20 20 09 | 20 20 4a 3d 4a 2b 31 0a |(I).X .| J=J+1.|
|00004a10| 58 0a 58 2d 2d 2d 20 32 | 33 2c 32 39 20 2d 2d 2d |X.X--- 2|3,29 ---|
|00004a20| 2d 2d 0a 58 20 20 43 09 | 09 09 09 09 09 21 55 4e |--.X C.|.....!UN|
|00004a30| 42 49 41 53 2c 20 43 4f | 4d 50 55 54 45 20 53 55 |BIAS, CO|MPUTE SU|
|00004a40| 4d 53 2e 0a 58 20 20 09 | 20 20 55 4b 45 59 57 28 |MS..X .| UKEYW(|
|00004a50| 49 29 3d 63 68 61 72 28 | 69 63 68 61 72 28 4b 45 |I)=char(|ichar(KE|
|00004a60| 59 57 28 49 29 29 2d 36 | 34 29 0a 58 20 20 09 20 |YW(I))-6|4).X . |
|00004a70| 20 49 46 28 49 4e 57 28 | 4a 29 2e 4c 45 2e 63 68 | IF(INW(|J).LE.ch|
|00004a80| 61 72 28 36 34 29 29 20 | 4a 3d 31 0a 58 21 20 09 |ar(64)) |J=1.X! .|
|00004a90| 20 20 55 49 4e 57 28 49 | 29 3d 69 63 68 61 72 28 | UINW(I|)=ichar(|
|00004aa0| 49 4e 57 28 4a 29 29 2d | 36 34 0a 58 20 20 09 20 |INW(J))-|64.X . |
|00004ab0| 20 55 4b 45 59 57 53 3d | 55 4b 45 59 57 53 2b 69 | UKEYWS=|UKEYWS+i|
|00004ac0| 63 68 61 72 28 55 4b 45 | 59 57 28 49 29 29 0a 58 |char(UKE|YW(I)).X|
|00004ad0| 20 20 09 20 20 55 49 4e | 57 53 3d 55 49 4e 57 53 | . UIN|WS=UINWS|
|00004ae0| 2b 55 49 4e 57 28 49 29 | 0a 58 20 20 09 20 20 4a |+UINW(I)|.X . J|
|00004af0| 3d 4a 2b 31 0a 58 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |=J+1.X**|********|
|00004b00| 2a 2a 2a 2a 2a 0a 58 2a | 2a 2a 20 33 32 2c 33 38 |*****.X*|** 32,38|
|00004b10| 0a 58 20 20 09 55 53 55 | 4d 3d 4d 4f 44 28 55 49 |.X .USU|M=MOD(UI|
|00004b20| 4e 57 53 2c 38 29 2b 28 | 38 2a 4d 4f 44 28 55 4b |NWS,8)+(|8*MOD(UK|
|00004b30| 45 59 57 53 2c 38 29 29 | 0a 58 20 20 43 09 09 09 |EYWS,8))|.X C...|
|00004b40| 09 09 09 21 43 4f 4d 50 | 55 54 45 20 4d 41 53 4b |...!COMP|UTE MASK|
|00004b50| 2e 0a 58 20 20 09 44 4f | 20 32 30 30 20 49 3d 31 |..X .DO| 200 I=1|
|00004b60| 2c 36 0a 58 21 20 09 20 | 20 4a 3d 61 6e 64 28 78 |,6.X! . | J=and(x|
|00004b70| 6f 72 28 78 6f 72 28 69 | 63 68 61 72 28 55 49 4e |or(xor(i|char(UIN|
|00004b80| 57 28 49 29 29 2c 69 63 | 68 61 72 28 55 4b 45 59 |W(I)),ic|har(UKEY|
|00004b90| 57 28 49 29 29 29 2c 55 | 53 55 4d 29 2c 33 31 29 |W(I))),U|SUM),31)|
|00004ba0| 0a 58 20 20 09 20 20 55 | 53 55 4d 3d 4d 4f 44 28 |.X . U|SUM=MOD(|
|00004bb0| 55 53 55 4d 2b 31 2c 33 | 32 29 0a 58 20 20 09 20 |USUM+1,3|2).X . |
|00004bc0| 20 49 46 28 4a 2e 47 54 | 2e 32 36 29 20 4a 3d 4d | IF(J.GT|.26) J=M|
|00004bd0| 4f 44 28 4a 2c 32 36 29 | 0a 58 20 20 09 20 20 4f |OD(J,26)|.X . O|
|00004be0| 55 54 57 28 49 29 3d 63 | 68 61 72 28 4d 41 58 30 |UTW(I)=c|har(MAX0|
|00004bf0| 28 31 2c 4a 29 2b 36 34 | 29 0a 58 0a 58 2d 2d 2d |(1,J)+64|).X.X---|
|00004c00| 20 33 32 2c 33 38 20 2d | 2d 2d 2d 2d 0a 58 20 20 | 32,38 -|----.X |
|00004c10| 09 55 53 55 4d 3d 4d 4f | 44 28 55 49 4e 57 53 2c |.USUM=MO|D(UINWS,|
|00004c20| 38 29 2b 28 38 2a 4d 4f | 44 28 55 4b 45 59 57 53 |8)+(8*MO|D(UKEYWS|
|00004c30| 2c 38 29 29 0a 58 20 20 | 43 09 09 09 09 09 09 21 |,8)).X |C......!|
|00004c40| 43 4f 4d 50 55 54 45 20 | 4d 41 53 4b 2e 0a 58 20 |COMPUTE |MASK..X |
|00004c50| 20 09 44 4f 20 32 30 30 | 20 49 3d 31 2c 36 0a 58 | .DO 200| I=1,6.X|
|00004c60| 21 20 09 20 20 4a 3d 61 | 6e 64 28 78 6f 72 28 78 |! . J=a|nd(xor(x|
|00004c70| 6f 72 28 55 49 4e 57 28 | 49 29 2c 69 63 68 61 72 |or(UINW(|I),ichar|
|00004c80| 28 55 4b 45 59 57 28 49 | 29 29 29 2c 55 53 55 4d |(UKEYW(I|))),USUM|
|00004c90| 29 2c 33 31 29 0a 58 20 | 20 09 20 20 55 53 55 4d |),31).X | . USUM|
|00004ca0| 3d 4d 4f 44 28 55 53 55 | 4d 2b 31 2c 33 32 29 0a |=MOD(USU|M+1,32).|
|00004cb0| 58 20 20 09 20 20 49 46 | 28 4a 2e 47 54 2e 32 36 |X . IF|(J.GT.26|
|00004cc0| 29 20 4a 3d 4d 4f 44 28 | 4a 2c 32 36 29 0a 58 20 |) J=MOD(|J,26).X |
|00004cd0| 20 09 20 20 4f 55 54 57 | 28 49 29 3d 63 68 61 72 | . OUTW|(I)=char|
|00004ce0| 28 4d 41 58 30 28 31 2c | 4a 29 2b 36 34 29 0a 58 |(MAX0(1,|J)+64).X|
|00004cf0| 2a 2a 2a 20 64 73 75 62 | 2e 46 2e 6f 72 69 67 09 |*** dsub|.F.orig.|
|00004d00| 4d 6f 6e 20 4f 63 74 20 | 32 34 20 31 35 3a 32 38 |Mon Oct |24 15:28|
|00004d10| 3a 35 37 20 31 39 38 38 | 0a 58 2d 2d 2d 20 64 73 |:57 1988|.X--- ds|
|00004d20| 75 62 2e 46 09 4d 6f 6e | 20 4f 63 74 20 32 34 20 |ub.F.Mon| Oct 24 |
|00004d30| 31 35 3a 32 38 3a 35 36 | 20 31 39 38 38 0a 58 2a |15:28:56| 1988.X*|
|00004d40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 58 |********|******.X|
|00004d50| 2a 2a 2a 20 33 39 31 2c | 34 30 31 0a 58 20 20 43 |*** 391,|401.X C|
|00004d60| 09 09 09 09 09 09 21 49 | 4e 56 4f 4c 55 4e 54 41 |......!I|NVOLUNTA|
|00004d70| 52 59 20 45 58 49 54 2e | 0a 58 20 20 31 31 30 30 |RY EXIT.|.X 1100|
|00004d80| 09 43 41 4c 4c 20 53 43 | 4f 52 45 28 2e 46 41 4c |.CALL SC|ORE(.FAL|
|00004d90| 53 45 2e 29 0a 58 20 20 | 43 09 09 09 09 09 09 21 |SE.).X |C......!|
|00004da0| 54 45 4c 4c 20 53 43 4f | 52 45 2e 0a 58 21 20 23 |TELL SCO|RE..X! #|
|00004db0| 69 66 64 65 66 20 50 44 | 50 0a 58 21 20 43 09 66 |ifdef PD|P.X! C.f|
|00004dc0| 69 6c 65 20 63 6c 6f 73 | 65 64 20 69 6e 20 65 78 |ile clos|ed in ex|
|00004dd0| 69 74 20 72 6f 75 74 69 | 6e 65 0a 58 21 20 23 65 |it routi|ne.X! #e|
|00004de0| 6c 73 65 0a 58 21 20 09 | 43 4c 4f 53 45 28 44 42 |lse.X! .|CLOSE(DB|
|00004df0| 43 48 29 0a 58 21 20 23 | 65 6e 64 69 66 20 50 44 |CH).X! #|endif PD|
|00004e00| 50 0a 58 20 20 09 43 41 | 4c 4c 20 45 58 49 54 0a |P.X .CA|LL EXIT.|
|00004e10| 58 20 20 43 0a 58 20 20 | 09 45 4e 44 0a 58 0a 58 |X C.X |.END.X.X|
|00004e20| 2d 2d 2d 20 33 39 31 2c | 33 39 37 20 2d 2d 2d 2d |--- 391,|397 ----|
|00004e30| 2d 0a 58 20 20 43 09 09 | 09 09 09 09 21 49 4e 56 |-.X C..|....!INV|
|00004e40| 4f 4c 55 4e 54 41 52 59 | 20 45 58 49 54 2e 0a 58 |OLUNTARY| EXIT..X|
|00004e50| 20 20 31 31 30 30 09 43 | 41 4c 4c 20 53 43 4f 52 | 1100.C|ALL SCOR|
|00004e60| 45 28 2e 46 41 4c 53 45 | 2e 29 0a 58 20 20 43 09 |E(.FALSE|.).X C.|
|00004e70| 09 09 09 09 09 21 54 45 | 4c 4c 20 53 43 4f 52 45 |.....!TE|LL SCORE|
|00004e80| 2e 0a 58 21 20 43 09 64 | 6f 6e 27 74 20 63 6c 6f |..X! C.d|on't clo|
|00004e90| 73 65 20 44 42 43 48 2c | 20 6a 75 73 74 20 65 78 |se DBCH,| just ex|
|00004ea0| 69 74 0a 58 20 20 09 43 | 41 4c 4c 20 45 58 49 54 |it.X .C|ALL EXIT|
|00004eb0| 0a 58 20 20 43 0a 58 20 | 20 09 45 4e 44 0a 58 2a |.X C.X | .END.X*|
|00004ec0| 2a 2a 20 64 76 65 72 62 | 32 2e 46 2e 6f 72 69 67 |** dverb|2.F.orig|
|00004ed0| 09 4d 6f 6e 20 4f 63 74 | 20 32 34 20 31 35 3a 32 |.Mon Oct| 24 15:2|
|00004ee0| 38 3a 35 37 20 31 39 38 | 38 0a 58 2d 2d 2d 20 64 |8:57 198|8.X--- d|
|00004ef0| 76 65 72 62 32 2e 46 09 | 4d 6f 6e 20 4f 63 74 20 |verb2.F.|Mon Oct |
|00004f00| 32 34 20 31 35 3a 32 38 | 3a 35 37 20 31 39 38 38 |24 15:28|:57 1988|
|00004f10| 0a 58 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.X******|********|
|00004f20| 2a 0a 58 2a 2a 2a 20 39 | 31 2c 39 39 0a 58 20 20 |*.X*** 9|1,99.X |
|00004f30| 26 09 09 53 57 44 41 43 | 54 2c 53 57 44 53 54 41 |&..SWDAC|T,SWDSTA|
|00004f40| 2c 43 50 56 45 43 0a 58 | 20 20 09 57 52 49 54 45 |,CPVEC.X| .WRITE|
|00004f50| 28 31 29 20 49 2c 4d 4f | 56 45 53 2c 44 45 41 54 |(1) I,MO|VES,DEAT|
|00004f60| 48 53 2c 52 57 53 43 4f | 52 2c 45 47 53 43 4f 52 |HS,RWSCO|R,EGSCOR|
|00004f70| 2c 4d 58 4c 4f 41 44 2c | 0a 58 20 20 26 09 09 4c |,MXLOAD,|.X &..L|
|00004f80| 54 53 48 46 54 2c 42 4c | 4f 43 2c 4d 55 4e 47 52 |TSHFT,BL|OC,MUNGR|
|00004f90| 4d 2c 48 53 2c 46 52 4f | 4d 44 52 2c 53 43 4f 4c |M,HS,FRO|MDR,SCOL|
|00004fa0| 52 4d 2c 53 43 4f 4c 41 | 43 0a 58 21 20 09 57 52 |RM,SCOLA|C.X! .WR|
|00004fb0| 49 54 45 28 31 29 20 4f | 44 45 53 43 31 2c 4f 44 |ITE(1) O|DESC1,OD|
|00004fc0| 45 53 43 32 2c 4f 46 4c | 41 47 31 2c 4f 46 4c 41 |ESC2,OFL|AG1,OFLA|
|00004fd0| 47 32 2c 4f 46 56 41 4c | 2c 4f 54 56 41 4c 2c 0a |G2,OFVAL|,OTVAL,.|
|00004fe0| 58 21 20 26 09 09 4f 53 | 49 5a 45 2c 4f 43 41 50 |X! &..OS|IZE,OCAP|
|00004ff0| 41 43 2c 4f 52 4f 4f 4d | 2c 4f 41 44 56 2c 4f 43 |AC,OROOM|,OADV,OC|
|00005000| 41 4e 0a 58 21 20 09 57 | 52 49 54 45 28 31 29 20 |AN.X! .W|RITE(1) |
|00005010| 52 56 41 4c 2c 52 46 4c | 41 47 0a 58 20 20 09 57 |RVAL,RFL|AG.X .W|
|00005020| 52 49 54 45 28 31 29 20 | 41 52 4f 4f 4d 2c 41 53 |RITE(1) |AROOM,AS|
|00005030| 43 4f 52 45 2c 41 56 45 | 48 49 43 2c 41 53 54 52 |CORE,AVE|HIC,ASTR|
|00005040| 45 4e 2c 41 46 4c 41 47 | 0a 58 20 20 09 57 52 49 |EN,AFLAG|.X .WRI|
|00005050| 54 45 28 31 29 20 46 4c | 41 47 53 2c 53 57 49 54 |TE(1) FL|AGS,SWIT|
|00005060| 43 48 2c 56 50 52 4f 42 | 2c 43 46 4c 41 47 2c 43 |CH,VPROB|,CFLAG,C|
|00005070| 54 49 43 4b 0a 58 20 20 | 43 0a 58 0a 58 2d 2d 2d |TICK.X |C.X.X---|
|00005080| 20 39 31 2c 31 30 39 20 | 2d 2d 2d 2d 2d 0a 58 20 | 91,109 |-----.X |
|00005090| 20 26 09 09 53 57 44 41 | 43 54 2c 53 57 44 53 54 | &..SWDA|CT,SWDST|
|000050a0| 41 2c 43 50 56 45 43 0a | 58 20 20 09 57 52 49 54 |A,CPVEC.|X .WRIT|
|000050b0| 45 28 31 29 20 49 2c 4d | 4f 56 45 53 2c 44 45 41 |E(1) I,M|OVES,DEA|
|000050c0| 54 48 53 2c 52 57 53 43 | 4f 52 2c 45 47 53 43 4f |THS,RWSC|OR,EGSCO|
|000050d0| 52 2c 4d 58 4c 4f 41 44 | 2c 0a 58 20 20 26 09 09 |R,MXLOAD|,.X &..|
|000050e0| 4c 54 53 48 46 54 2c 42 | 4c 4f 43 2c 4d 55 4e 47 |LTSHFT,B|LOC,MUNG|
|000050f0| 52 4d 2c 48 53 2c 46 52 | 4f 4d 44 52 2c 53 43 4f |RM,HS,FR|OMDR,SCO|
|00005100| 4c 52 4d 2c 53 43 4f 4c | 41 43 0a 58 21 20 09 57 |LRM,SCOL|AC.X! .W|
|00005110| 52 49 54 45 28 31 29 20 | 4f 44 45 53 43 31 0a 58 |RITE(1) |ODESC1.X|
|00005120| 21 20 09 57 52 49 54 45 | 28 31 29 20 4f 44 45 53 |! .WRITE|(1) ODES|
|00005130| 43 32 0a 58 21 20 09 57 | 52 49 54 45 28 31 29 20 |C2.X! .W|RITE(1) |
|00005140| 4f 46 4c 41 47 31 0a 58 | 21 20 09 57 52 49 54 45 |OFLAG1.X|! .WRITE|
|00005150| 28 31 29 20 4f 46 4c 41 | 47 32 0a 58 21 20 09 57 |(1) OFLA|G2.X! .W|
|00005160| 52 49 54 45 28 31 29 20 | 4f 46 56 41 4c 0a 58 21 |RITE(1) |OFVAL.X!|
|00005170| 20 09 57 52 49 54 45 28 | 31 29 20 4f 54 56 41 4c | .WRITE(|1) OTVAL|
|00005180| 0a 58 21 20 09 57 52 49 | 54 45 28 31 29 20 4f 53 |.X! .WRI|TE(1) OS|
|00005190| 49 5a 45 0a 58 21 20 09 | 57 52 49 54 45 28 31 29 |IZE.X! .|WRITE(1)|
|000051a0| 20 4f 43 41 50 41 43 0a | 58 21 20 09 57 52 49 54 | OCAPAC.|X! .WRIT|
|000051b0| 45 28 31 29 20 4f 52 4f | 4f 4d 0a 58 21 20 09 57 |E(1) ORO|OM.X! .W|
|000051c0| 52 49 54 45 28 31 29 20 | 4f 41 44 56 0a 58 21 20 |RITE(1) |OADV.X! |
|000051d0| 09 57 52 49 54 45 28 31 | 29 20 4f 43 41 4e 0a 58 |.WRITE(1|) OCAN.X|
|000051e0| 21 20 09 57 52 49 54 45 | 28 31 29 20 52 56 41 4c |! .WRITE|(1) RVAL|
|000051f0| 0a 58 21 20 09 57 52 49 | 54 45 28 31 29 20 52 46 |.X! .WRI|TE(1) RF|
|00005200| 4c 41 47 0a 58 20 20 09 | 57 52 49 54 45 28 31 29 |LAG.X .|WRITE(1)|
|00005210| 20 41 52 4f 4f 4d 2c 41 | 53 43 4f 52 45 2c 41 56 | AROOM,A|SCORE,AV|
|00005220| 45 48 49 43 2c 41 53 54 | 52 45 4e 2c 41 46 4c 41 |EHIC,AST|REN,AFLA|
|00005230| 47 0a 58 20 20 09 57 52 | 49 54 45 28 31 29 20 46 |G.X .WR|ITE(1) F|
|00005240| 4c 41 47 53 2c 53 57 49 | 54 43 48 2c 56 50 52 4f |LAGS,SWI|TCH,VPRO|
|00005250| 42 2c 43 46 4c 41 47 2c | 43 54 49 43 4b 0a 58 20 |B,CFLAG,|CTICK.X |
|00005260| 20 43 0a 58 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | C.X****|********|
|00005270| 2a 2a 2a 0a 58 2a 2a 2a | 20 31 39 35 2c 32 30 31 |***.X***| 195,201|
|00005280| 0a 58 20 20 09 72 65 77 | 69 6e 64 20 28 75 6e 69 |.X .rew|ind (uni|
|00005290| 74 3d 31 2c 20 65 72 72 | 3d 31 30 30 29 0a 58 20 |t=1, err|=100).X |
|000052a0| 20 43 0a 58 20 20 09 52 | 45 41 44 28 31 29 20 49 | C.X .R|EAD(1) I|
|000052b0| 2c 4a 2c 4b 0a 58 21 20 | 09 49 46 28 6f 72 28 28 |,J,K.X! |.IF(or((|
|000052c0| 49 2e 4e 45 2e 56 4d 41 | 4a 29 2c 28 4a 2e 4e 45 |I.NE.VMA|J),(J.NE|
|000052d0| 2e 56 4d 49 4e 29 29 29 | 20 47 4f 20 54 4f 20 32 |.VMIN)))| GO TO 2|
|000052e0| 30 30 0a 58 20 20 43 0a | 58 20 20 09 52 45 41 44 |00.X C.|X .READ|
|000052f0| 28 31 29 20 57 49 4e 4e | 45 52 2c 48 45 52 45 2c |(1) WINN|ER,HERE,|
|00005300| 54 48 46 50 4f 53 2c 54 | 45 4c 46 4c 47 2c 54 48 |THFPOS,T|ELFLG,TH|
|00005310| 46 46 4c 47 2c 54 48 46 | 41 43 54 2c 0a 58 20 20 |FFLG,THF|ACT,.X |
|00005320| 26 09 09 53 57 44 41 43 | 54 2c 53 57 44 53 54 41 |&..SWDAC|T,SWDSTA|
|00005330| 2c 43 50 56 45 43 0a 58 | 0a 58 2d 2d 2d 20 32 30 |,CPVEC.X|.X--- 20|
|00005340| 35 2c 32 31 31 20 2d 2d | 2d 2d 2d 0a 58 20 20 09 |5,211 --|---.X .|
|00005350| 72 65 77 69 6e 64 20 28 | 75 6e 69 74 3d 31 2c 20 |rewind (|unit=1, |
|00005360| 65 72 72 3d 31 30 30 29 | 0a 58 20 20 43 0a 58 20 |err=100)|.X C.X |
|00005370| 20 09 52 45 41 44 28 31 | 29 20 49 2c 4a 2c 4b 0a | .READ(1|) I,J,K.|
|00005380| 58 21 20 09 49 46 28 28 | 28 49 2e 4e 45 2e 56 4d |X! .IF((|(I.NE.VM|
|00005390| 41 4a 29 20 2e 4f 52 2e | 20 28 4a 2e 4e 45 2e 56 |AJ) .OR.| (J.NE.V|
|000053a0| 4d 49 4e 29 29 29 20 47 | 4f 20 54 4f 20 32 30 30 |MIN))) G|O TO 200|
|000053b0| 0a 58 20 20 43 0a 58 20 | 20 09 52 45 41 44 28 31 |.X C.X | .READ(1|
|000053c0| 29 20 57 49 4e 4e 45 52 | 2c 48 45 52 45 2c 54 48 |) WINNER|,HERE,TH|
|000053d0| 46 50 4f 53 2c 54 45 4c | 46 4c 47 2c 54 48 46 46 |FPOS,TEL|FLG,THFF|
|000053e0| 4c 47 2c 54 48 46 41 43 | 54 2c 0a 58 20 20 26 09 |LG,THFAC|T,.X &.|
|000053f0| 09 53 57 44 41 43 54 2c | 53 57 44 53 54 41 2c 43 |.SWDACT,|SWDSTA,C|
|00005400| 50 56 45 43 0a 58 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |PVEC.X**|********|
|00005410| 2a 2a 2a 2a 2a 0a 58 2a | 2a 2a 20 32 30 31 2c 32 |*****.X*|** 201,2|
|00005420| 30 39 0a 58 20 20 26 09 | 09 53 57 44 41 43 54 2c |09.X &.|.SWDACT,|
|00005430| 53 57 44 53 54 41 2c 43 | 50 56 45 43 0a 58 20 20 |SWDSTA,C|PVEC.X |
|00005440| 09 52 45 41 44 28 31 29 | 20 50 4c 54 49 4d 45 2c |.READ(1)| PLTIME,|
|00005450| 4d 4f 56 45 53 2c 44 45 | 41 54 48 53 2c 52 57 53 |MOVES,DE|ATHS,RWS|
|00005460| 43 4f 52 2c 45 47 53 43 | 4f 52 2c 4d 58 4c 4f 41 |COR,EGSC|OR,MXLOA|
|00005470| 44 2c 0a 58 20 20 26 09 | 09 4c 54 53 48 46 54 2c |D,.X &.|.LTSHFT,|
|00005480| 42 4c 4f 43 2c 4d 55 4e | 47 52 4d 2c 48 53 2c 46 |BLOC,MUN|GRM,HS,F|
|00005490| 52 4f 4d 44 52 2c 53 43 | 4f 4c 52 4d 2c 53 43 4f |ROMDR,SC|OLRM,SCO|
|000054a0| 4c 41 43 0a 58 21 20 09 | 52 45 41 44 28 31 29 20 |LAC.X! .|READ(1) |
|000054b0| 4f 44 45 53 43 31 2c 4f | 44 45 53 43 32 2c 4f 46 |ODESC1,O|DESC2,OF|
|000054c0| 4c 41 47 31 2c 4f 46 4c | 41 47 32 2c 4f 46 56 41 |LAG1,OFL|AG2,OFVA|
|000054d0| 4c 2c 4f 54 56 41 4c 2c | 0a 58 21 20 26 09 09 4f |L,OTVAL,|.X! &..O|
|000054e0| 53 49 5a 45 2c 4f 43 41 | 50 41 43 2c 4f 52 4f 4f |SIZE,OCA|PAC,OROO|
|000054f0| 4d 2c 4f 41 44 56 2c 4f | 43 41 4e 0a 58 21 20 09 |M,OADV,O|CAN.X! .|
|00005500| 52 45 41 44 28 31 29 20 | 52 56 41 4c 2c 52 46 4c |READ(1) |RVAL,RFL|
|00005510| 41 47 0a 58 20 20 09 52 | 45 41 44 28 31 29 20 41 |AG.X .R|EAD(1) A|
|00005520| 52 4f 4f 4d 2c 41 53 43 | 4f 52 45 2c 41 56 45 48 |ROOM,ASC|ORE,AVEH|
|00005530| 49 43 2c 41 53 54 52 45 | 4e 2c 41 46 4c 41 47 0a |IC,ASTRE|N,AFLAG.|
|00005540| 58 20 20 09 52 45 41 44 | 28 31 29 20 46 4c 41 47 |X .READ|(1) FLAG|
|00005550| 53 2c 53 57 49 54 43 48 | 2c 56 50 52 4f 42 2c 43 |S,SWITCH|,VPROB,C|
|00005560| 46 4c 41 47 2c 43 54 49 | 43 4b 0a 58 20 20 43 0a |FLAG,CTI|CK.X C.|
|00005570| 58 0a 58 2d 2d 2d 20 32 | 31 31 2c 32 32 39 20 2d |X.X--- 2|11,229 -|
|00005580| 2d 2d 2d 2d 0a 58 20 20 | 26 09 09 53 57 44 41 43 |----.X |&..SWDAC|
|00005590| 54 2c 53 57 44 53 54 41 | 2c 43 50 56 45 43 0a 58 |T,SWDSTA|,CPVEC.X|
|000055a0| 20 20 09 52 45 41 44 28 | 31 29 20 50 4c 54 49 4d | .READ(|1) PLTIM|
|000055b0| 45 2c 4d 4f 56 45 53 2c | 44 45 41 54 48 53 2c 52 |E,MOVES,|DEATHS,R|
|000055c0| 57 53 43 4f 52 2c 45 47 | 53 43 4f 52 2c 4d 58 4c |WSCOR,EG|SCOR,MXL|
|000055d0| 4f 41 44 2c 0a 58 20 20 | 26 09 09 4c 54 53 48 46 |OAD,.X |&..LTSHF|
|000055e0| 54 2c 42 4c 4f 43 2c 4d | 55 4e 47 52 4d 2c 48 53 |T,BLOC,M|UNGRM,HS|
|000055f0| 2c 46 52 4f 4d 44 52 2c | 53 43 4f 4c 52 4d 2c 53 |,FROMDR,|SCOLRM,S|
|00005600| 43 4f 4c 41 43 0a 58 21 | 20 09 52 45 41 44 28 31 |COLAC.X!| .READ(1|
|00005610| 29 20 4f 44 45 53 43 31 | 0a 58 21 20 09 52 45 41 |) ODESC1|.X! .REA|
|00005620| 44 28 31 29 20 4f 44 45 | 53 43 32 0a 58 21 20 09 |D(1) ODE|SC2.X! .|
|00005630| 52 45 41 44 28 31 29 20 | 4f 46 4c 41 47 31 0a 58 |READ(1) |OFLAG1.X|
|00005640| 21 20 09 52 45 41 44 28 | 31 29 20 4f 46 4c 41 47 |! .READ(|1) OFLAG|
|00005650| 32 0a 58 21 20 09 52 45 | 41 44 28 31 29 20 4f 46 |2.X! .RE|AD(1) OF|
|00005660| 56 41 4c 0a 58 21 20 09 | 52 45 41 44 28 31 29 20 |VAL.X! .|READ(1) |
|00005670| 4f 54 56 41 4c 0a 58 21 | 20 09 52 45 41 44 28 31 |OTVAL.X!| .READ(1|
|00005680| 29 20 4f 53 49 5a 45 0a | 58 21 20 09 52 45 41 44 |) OSIZE.|X! .READ|
|00005690| 28 31 29 20 4f 43 41 50 | 41 43 0a 58 21 20 09 52 |(1) OCAP|AC.X! .R|
|000056a0| 45 41 44 28 31 29 20 4f | 52 4f 4f 4d 0a 58 21 20 |EAD(1) O|ROOM.X! |
|000056b0| 09 52 45 41 44 28 31 29 | 20 4f 41 44 56 0a 58 21 |.READ(1)| OADV.X!|
|000056c0| 20 09 52 45 41 44 28 31 | 29 20 4f 43 41 4e 0a 58 | .READ(1|) OCAN.X|
|000056d0| 21 20 09 52 45 41 44 28 | 31 29 20 52 56 41 4c 0a |! .READ(|1) RVAL.|
|000056e0| 58 21 20 09 52 45 41 44 | 28 31 29 20 52 46 4c 41 |X! .READ|(1) RFLA|
|000056f0| 47 0a 58 20 20 09 52 45 | 41 44 28 31 29 20 41 52 |G.X .RE|AD(1) AR|
|00005700| 4f 4f 4d 2c 41 53 43 4f | 52 45 2c 41 56 45 48 49 |OOM,ASCO|RE,AVEHI|
|00005710| 43 2c 41 53 54 52 45 4e | 2c 41 46 4c 41 47 0a 58 |C,ASTREN|,AFLAG.X|
|00005720| 20 20 09 52 45 41 44 28 | 31 29 20 46 4c 41 47 53 | .READ(|1) FLAGS|
|00005730| 2c 53 57 49 54 43 48 2c | 56 50 52 4f 42 2c 43 46 |,SWITCH,|VPROB,CF|
|00005740| 4c 41 47 2c 43 54 49 43 | 4b 0a 58 20 20 43 0a 58 |LAG,CTIC|K.X C.X|
|00005750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|00005760| 58 2a 2a 2a 20 34 32 31 | 2c 34 32 37 0a 58 20 20 |X*** 421|,427.X |
|00005770| 43 0a 58 20 20 43 20 43 | 37 2d 09 46 52 4f 42 4f |C.X C C|7-.FROBO|
|00005780| 5a 5a 20 46 4c 41 47 20 | 28 42 41 4e 4b 20 41 4c |ZZ FLAG |(BANK AL|
|00005790| 41 52 4d 29 0a 58 20 20 | 43 0a 58 21 20 37 30 30 |ARM).X |C.X! 700|
|000057a0| 30 09 46 52 4f 42 5a 46 | 3d 61 6e 64 28 28 4f 52 |0.FROBZF|=and((OR|
|000057b0| 4f 4f 4d 28 42 49 4c 4c | 53 29 2e 4e 45 2e 30 29 |OOM(BILL|S).NE.0)|
|000057c0| 2c 28 4f 52 4f 4f 4d 28 | 50 4f 52 54 52 29 2e 4e |,(OROOM(|PORTR).N|
|000057d0| 45 2e 30 29 29 0a 58 20 | 20 09 52 45 54 55 52 4e |E.0)).X | .RETURN|
|000057e0| 0a 58 20 20 43 20 43 58 | 41 50 50 4c 2c 20 50 41 |.X C CX|APPL, PA|
|000057f0| 47 45 20 33 0a 58 20 20 | 43 0a 58 0a 58 2d 2d 2d |GE 3.X |C.X.X---|
|00005800| 20 34 34 31 2c 34 34 37 | 20 2d 2d 2d 2d 2d 0a 58 | 441,447| -----.X|
|00005810| 20 20 43 0a 58 20 20 43 | 20 43 37 2d 09 46 52 4f | C.X C| C7-.FRO|
|00005820| 42 4f 5a 5a 20 46 4c 41 | 47 20 28 42 41 4e 4b 20 |BOZZ FLA|G (BANK |
|00005830| 41 4c 41 52 4d 29 0a 58 | 20 20 43 0a 58 21 20 37 |ALARM).X| C.X! 7|
|00005840| 30 30 30 09 46 52 4f 42 | 5a 46 3d 28 28 4f 52 4f |000.FROB|ZF=((ORO|
|00005850| 4f 4d 28 42 49 4c 4c 53 | 29 2e 4e 45 2e 30 29 20 |OM(BILLS|).NE.0) |
|00005860| 2e 41 4e 44 2e 20 28 4f | 52 4f 4f 4d 28 50 4f 52 |.AND. (O|ROOM(POR|
|00005870| 54 52 29 2e 4e 45 2e 30 | 29 29 0a 58 20 20 09 52 |TR).NE.0|)).X .R|
|00005880| 45 54 55 52 4e 0a 58 20 | 20 43 20 43 58 41 50 50 |ETURN.X | C CXAPP|
|00005890| 4c 2c 20 50 41 47 45 20 | 33 0a 58 20 20 43 0a 58 |L, PAGE |3.X C.X|
|000058a0| 2a 2a 2a 20 65 78 69 74 | 2e 63 2e 6f 72 69 67 09 |*** exit|.c.orig.|
|000058b0| 4d 6f 6e 20 4f 63 74 20 | 32 34 20 31 35 3a 32 38 |Mon Oct |24 15:28|
|000058c0| 3a 35 37 20 31 39 38 38 | 0a 58 2d 2d 2d 20 65 78 |:57 1988|.X--- ex|
|000058d0| 69 74 2e 63 09 4d 6f 6e | 20 4f 63 74 20 32 34 20 |it.c.Mon| Oct 24 |
|000058e0| 31 35 3a 32 38 3a 35 37 | 20 31 39 38 38 0a 58 2a |15:28:57| 1988.X*|
|000058f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 58 |********|******.X|
|00005900| 2a 2a 2a 20 30 0a 58 0a | 58 2d 2d 2d 20 31 20 2d |*** 0.X.|X--- 1 -|
|00005910| 2d 2d 2d 2d 0a 58 2b 20 | 76 6f 69 64 20 65 78 69 |----.X+ |void exi|
|00005920| 74 5f 28 29 20 7b 20 65 | 78 69 74 28 30 29 3b 20 |t_() { e|xit(0); |
|00005930| 7d 0a 58 2a 2a 2a 20 67 | 64 74 2e 46 2e 6f 72 69 |}.X*** g|dt.F.ori|
|00005940| 67 09 4d 6f 6e 20 4f 63 | 74 20 32 34 20 31 35 3a |g.Mon Oc|t 24 15:|
|00005950| 32 38 3a 35 38 20 31 39 | 38 38 0a 58 2d 2d 2d 20 |28:58 19|88.X--- |
|00005960| 67 64 74 2e 46 09 4d 6f | 6e 20 4f 63 74 20 32 34 |gdt.F.Mo|n Oct 24|
|00005970| 20 31 35 3a 32 38 3a 35 | 38 20 31 39 38 38 0a 58 | 15:28:5|8 1988.X|
|00005980| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0a |********|*******.|
|00005990| 58 2a 2a 2a 20 31 30 32 | 2c 31 30 38 0a 58 20 20 |X*** 102|,108.X |
|000059a0| 09 47 4f 20 54 4f 20 32 | 30 30 30 0a 58 20 20 43 |.GO TO 2|000.X C|
|000059b0| 0a 58 20 20 23 69 66 64 | 65 66 20 4e 4f 43 43 0a |.X #ifd|ef NOCC.|
|000059c0| 58 21 20 32 30 30 09 46 | 4f 52 4d 41 54 28 27 47 |X! 200.F|ORMAT('G|
|000059d0| 44 54 3e 27 2c 24 29 0a | 58 20 20 23 65 6c 73 65 |DT>',$).|X #else|
|000059e0| 20 4e 4f 43 43 0a 58 20 | 20 32 30 30 09 46 4f 52 | NOCC.X | 200.FOR|
|000059f0| 4d 41 54 28 27 20 47 44 | 54 3e 27 2c 24 29 0a 58 |MAT(' GD|T>',$).X|
|00005a00| 20 20 23 65 6e 64 69 66 | 20 4e 4f 43 43 0a 58 0a | #endif| NOCC.X.|
|00005a10| 58 2d 2d 2d 20 31 30 32 | 2c 31 30 38 20 2d 2d 2d |X--- 102|,108 ---|
|00005a20| 2d 2d 0a 58 20 20 09 47 | 4f 20 54 4f 20 32 30 30 |--.X .G|O TO 200|
|00005a30| 30 0a 58 20 20 43 0a 58 | 20 20 23 69 66 64 65 66 |0.X C.X| #ifdef|
|00005a40| 20 4e 4f 43 43 0a 58 21 | 20 32 30 30 09 46 4f 52 | NOCC.X!| 200.FOR|
|00005a50| 4d 41 54 28 27 47 44 54 | 3e 27 29 0a 58 20 20 23 |MAT('GDT|>').X #|
|00005a60| 65 6c 73 65 20 4e 4f 43 | 43 0a 58 20 20 32 30 30 |else NOC|C.X 200|
|00005a70| 09 46 4f 52 4d 41 54 28 | 27 20 47 44 54 3e 27 2c |.FORMAT(|' GDT>',|
|00005a80| 24 29 0a 58 20 20 23 65 | 6e 64 69 66 20 4e 4f 43 |$).X #e|ndif NOC|
|00005a90| 43 0a 58 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |C.X*****|********|
|00005aa0| 2a 2a 0a 58 2a 2a 2a 20 | 31 31 35 2c 31 32 33 0a |**.X*** |115,123.|
|00005ab0| 58 20 20 32 33 30 09 46 | 4f 52 4d 41 54 28 32 49 |X 230.F|ORMAT(2I|
|00005ac0| 36 29 0a 58 20 20 32 34 | 30 09 46 4f 52 4d 41 54 |6).X 24|0.FORMAT|
|00005ad0| 28 49 36 29 0a 58 20 20 | 23 69 66 64 65 66 20 4e |(I6).X |#ifdef N|
|00005ae0| 4f 43 43 0a 58 21 20 32 | 32 35 09 46 4f 52 4d 41 |OCC.X! 2|25.FORMA|
|00005af0| 54 28 27 4c 69 6d 69 74 | 73 3a 20 20 20 27 2c 24 |T('Limit|s: ',$|
|00005b00| 29 0a 58 21 20 32 33 35 | 09 46 4f 52 4d 41 54 28 |).X! 235|.FORMAT(|
|00005b10| 27 45 6e 74 72 79 3a 20 | 20 20 20 27 2c 24 29 0a |'Entry: | ',$).|
|00005b20| 58 21 20 32 34 35 09 46 | 4f 52 4d 41 54 28 27 49 |X! 245.F|ORMAT('I|
|00005b30| 64 78 2c 41 72 79 3a 20 | 20 27 2c 24 29 0a 58 20 |dx,Ary: | ',$).X |
|00005b40| 20 23 65 6c 73 65 20 4e | 4f 43 43 0a 58 20 20 32 | #else N|OCC.X 2|
|00005b50| 32 35 09 46 4f 52 4d 41 | 54 28 27 20 4c 69 6d 69 |25.FORMA|T(' Limi|
|00005b60| 74 73 3a 20 20 20 27 2c | 24 29 0a 58 20 20 32 33 |ts: ',|$).X 23|
|00005b70| 35 09 46 4f 52 4d 41 54 | 28 27 20 45 6e 74 72 79 |5.FORMAT|(' Entry|
|00005b80| 3a 20 20 20 20 27 2c 24 | 29 0a 58 0a 58 2d 2d 2d |: ',$|).X.X---|
|00005b90| 20 31 31 35 2c 31 32 33 | 20 2d 2d 2d 2d 2d 0a 58 | 115,123| -----.X|
|00005ba0| 20 20 32 33 30 09 46 4f | 52 4d 41 54 28 32 49 36 | 230.FO|RMAT(2I6|
|00005bb0| 29 0a 58 20 20 32 34 30 | 09 46 4f 52 4d 41 54 28 |).X 240|.FORMAT(|
|00005bc0| 49 36 29 0a 58 20 20 23 | 69 66 64 65 66 20 4e 4f |I6).X #|ifdef NO|
|00005bd0| 43 43 0a 58 21 20 32 32 | 35 09 46 4f 52 4d 41 54 |CC.X! 22|5.FORMAT|
|00005be0| 28 27 4c 69 6d 69 74 73 | 3a 20 20 20 27 29 0a 58 |('Limits|: ').X|
|00005bf0| 21 20 32 33 35 09 46 4f | 52 4d 41 54 28 27 45 6e |! 235.FO|RMAT('En|
|00005c00| 74 72 79 3a 20 20 20 20 | 27 29 0a 58 21 20 32 34 |try: |').X! 24|
|00005c10| 35 09 46 4f 52 4d 41 54 | 28 27 49 64 78 2c 41 72 |5.FORMAT|('Idx,Ar|
|00005c20| 79 3a 20 20 27 29 0a 58 | 20 20 23 65 6c 73 65 20 |y: ').X| #else |
|00005c30| 4e 4f 43 43 0a 58 20 20 | 32 32 35 09 46 4f 52 4d |NOCC.X |225.FORM|
|00005c40| 41 54 28 27 20 4c 69 6d | 69 74 73 3a 20 20 20 27 |AT(' Lim|its: '|
|00005c50| 2c 24 29 0a 58 20 20 32 | 33 35 09 46 4f 52 4d 41 |,$).X 2|35.FORMA|
|00005c60| 54 28 27 20 45 6e 74 72 | 79 3a 20 20 20 20 27 2c |T(' Entr|y: ',|
|00005c70| 24 29 0a 58 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |$).X****|********|
|00005c80| 2a 2a 2a 0a 58 2a 2a 2a | 20 33 34 34 2c 33 35 30 |***.X***| 344,350|
|00005c90| 0a 58 20 20 09 47 4f 20 | 54 4f 20 32 30 30 30 0a |.X .GO |TO 2000.|
|00005ca0| 58 20 20 43 0a 58 20 20 | 23 69 66 64 65 66 20 4e |X C.X |#ifdef N|
|00005cb0| 4f 43 43 0a 58 21 20 34 | 38 30 09 46 4f 52 4d 41 |OCC.X! 4|80.FORMA|
|00005cc0| 54 28 27 4f 6c 64 3d 27 | 2c 4c 32 2c 36 58 2c 27 |T('Old='|,L2,6X,'|
|00005cd0| 4e 65 77 3d 20 27 2c 24 | 29 0a 58 20 20 23 65 6c |New= ',$|).X #el|
|00005ce0| 73 65 20 4e 4f 43 43 0a | 58 20 20 34 38 30 09 46 |se NOCC.|X 480.F|
|00005cf0| 4f 52 4d 41 54 28 27 20 | 4f 6c 64 3d 27 2c 4c 32 |ORMAT(' |Old=',L2|
|00005d00| 2c 36 58 2c 27 4e 65 77 | 3d 20 27 2c 24 29 0a 58 |,6X,'New|= ',$).X|
|00005d10| 20 20 23 65 6e 64 69 66 | 20 4e 4f 43 43 0a 58 0a | #endif| NOCC.X.|
|00005d20| 58 2d 2d 2d 20 33 34 34 | 2c 33 35 30 20 2d 2d 2d |X--- 344|,350 ---|
|00005d30| 2d 2d 0a 58 20 20 09 47 | 4f 20 54 4f 20 32 30 30 |--.X .G|O TO 200|
|00005d40| 30 0a 58 20 20 43 0a 58 | 20 20 23 69 66 64 65 66 |0.X C.X| #ifdef|
|00005d50| 20 4e 4f 43 43 0a 58 21 | 20 34 38 30 09 46 4f 52 | NOCC.X!| 480.FOR|
|00005d60| 4d 41 54 28 27 4f 6c 64 | 3d 27 2c 4c 32 2c 36 58 |MAT('Old|=',L2,6X|
|00005d70| 2c 27 4e 65 77 3d 20 27 | 29 0a 58 20 20 23 65 6c |,'New= '|).X #el|
|00005d80| 73 65 20 4e 4f 43 43 0a | 58 20 20 34 38 30 09 46 |se NOCC.|X 480.F|
|00005d90| 4f 52 4d 41 54 28 27 20 | 4f 6c 64 3d 27 2c 4c 32 |ORMAT(' |Old=',L2|
|00005da0| 2c 36 58 2c 27 4e 65 77 | 3d 20 27 2c 24 29 0a 58 |,6X,'New|= ',$).X|
|00005db0| 20 20 23 65 6e 64 69 66 | 20 4e 4f 43 43 0a 58 2a | #endif| NOCC.X*|
|00005dc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0a 58 |********|******.X|
|00005dd0| 2a 2a 2a 20 35 32 38 2c | 35 33 34 0a 58 20 20 09 |*** 528,|534.X .|
|00005de0| 47 4f 20 54 4f 20 32 30 | 30 30 0a 58 20 20 43 0a |GO TO 20|00.X C.|
|00005df0| 58 20 20 23 69 66 64 65 | 66 20 4e 4f 43 43 0a 58 |X #ifde|f NOCC.X|
|00005e00| 21 20 35 39 30 09 46 4f | 52 4d 41 54 28 27 4f 6c |! 590.FO|RMAT('Ol|
|00005e10| 64 3d 20 27 2c 49 36 2c | 36 58 2c 27 4e 65 77 3d |d= ',I6,|6X,'New=|
|00005e20| 20 27 2c 24 29 0a 58 20 | 20 23 65 6c 73 65 20 4e | ',$).X | #else N|
|00005e30| 4f 43 43 0a 58 20 20 35 | 39 30 09 46 4f 52 4d 41 |OCC.X 5|90.FORMA|
|00005e40| 54 28 27 20 4f 6c 64 3d | 20 27 2c 49 36 2c 36 58 |T(' Old=| ',I6,6X|
|00005e50| 2c 27 4e 65 77 3d 20 27 | 2c 24 29 0a 58 20 20 23 |,'New= '|,$).X #|
|00005e60| 65 6e 64 69 66 20 4e 4f | 43 43 0a 58 0a 58 2d 2d |endif NO|CC.X.X--|
|00005e70| 2d 20 35 32 38 2c 35 33 | 34 20 2d 2d 2d 2d 2d 0a |- 528,53|4 -----.|
|00005e80| 58 20 20 09 47 4f 20 54 | 4f 20 32 30 30 30 0a 58 |X .GO T|O 2000.X|
|00005e90| 20 20 43 0a 58 20 20 23 | 69 66 64 65 66 20 4e 4f | C.X #|ifdef NO|
|00005ea0| 43 43 0a 58 21 20 35 39 | 30 09 46 4f 52 4d 41 54 |CC.X! 59|0.FORMAT|
|00005eb0| 28 27 4f 6c 64 3d 20 27 | 2c 49 36 2c 36 58 2c 27 |('Old= '|,I6,6X,'|
|00005ec0| 4e 65 77 3d 20 27 29 0a | 58 20 20 23 65 6c 73 65 |New= ').|X #else|
|00005ed0| 20 4e 4f 43 43 0a 58 20 | 20 35 39 30 09 46 4f 52 | NOCC.X | 590.FOR|
|00005ee0| 4d 41 54 28 27 20 4f 6c | 64 3d 20 27 2c 49 36 2c |MAT(' Ol|d= ',I6,|
|00005ef0| 36 58 2c 27 4e 65 77 3d | 20 27 2c 24 29 0a 58 20 |6X,'New=| ',$).X |
|00005f00| 20 23 65 6e 64 69 66 20 | 4e 4f 43 43 0a 58 2a 2a | #endif |NOCC.X**|
|00005f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0a 58 2a |********|*****.X*|
|00005f20| 2a 2a 20 35 37 34 2c 35 | 38 30 0a 58 20 20 09 47 |** 574,5|80.X .G|
|00005f30| 4f 20 54 4f 20 32 30 30 | 30 0a 58 20 20 43 0a 58 |O TO 200|0.X C.X|
|00005f40| 20 20 23 69 66 64 65 66 | 20 4e 4f 43 43 0a 58 21 | #ifdef| NOCC.X!|
|00005f50| 20 36 31 30 09 46 4f 52 | 4d 41 54 28 27 4f 6c 64 | 610.FOR|MAT('Old|
|00005f60| 3d 20 27 2c 49 36 2c 36 | 58 2c 27 4e 65 77 3d 20 |= ',I6,6|X,'New= |
|00005f70| 27 2c 24 29 0a 58 20 20 | 23 65 6c 73 65 20 4e 4f |',$).X |#else NO|
|00005f80| 43 43 0a 58 20 20 36 31 | 30 09 46 4f 52 4d 41 54 |CC.X 61|0.FORMAT|
|00005f90| 28 27 20 4f 6c 64 3d 20 | 27 2c 49 36 2c 36 58 2c |(' Old= |',I6,6X,|
|00005fa0| 27 4e 65 77 3d 20 27 2c | 24 29 0a 58 20 20 23 65 |'New= ',|$).X #e|
|00005fb0| 6e 64 69 66 20 4e 4f 43 | 43 0a 58 0a 58 2d 2d 2d |ndif NOC|C.X.X---|
|00005fc0| 20 35 37 34 2c 35 38 30 | 20 2d 2d 2d 2d 2d 0a 58 | 574,580| -----.X|
|00005fd0| 20 20 09 47 4f 20 54 4f | 20 32 30 30 30 0a 58 20 | .GO TO| 2000.X |
|00005fe0| 20 43 0a 58 20 20 23 69 | 66 64 65 66 20 4e 4f 43 | C.X #i|fdef NOC|
|00005ff0| 43 0a 58 21 20 36 31 30 | 09 46 4f 52 4d 41 54 28 |C.X! 610|.FORMAT(|
|00006000| 27 4f 6c 64 3d 20 27 2c | 49 36 2c 36 58 2c 27 4e |'Old= ',|I6,6X,'N|
|00006010| 65 77 3d 20 27 29 0a 58 | 20 20 23 65 6c 73 65 20 |ew= ').X| #else |
|00006020| 4e 4f 43 43 0a 58 20 20 | 36 31 30 09 46 4f 52 4d |NOCC.X |610.FORM|
|00006030| 41 54 28 27 20 4f 6c 64 | 3d 20 27 2c 49 36 2c 36 |AT(' Old|= ',I6,6|
|00006040| 58 2c 27 4e 65 77 3d 20 | 27 2c 24 29 0a 58 20 20 |X,'New= |',$).X |
|00006050| 23 65 6e 64 69 66 20 4e | 4f 43 43 0a 58 2a 2a 2a |#endif N|OCC.X***|
|00006060| 20 6e 70 2e 46 2e 6f 72 | 69 67 09 4d 6f 6e 20 4f | np.F.or|ig.Mon O|
|00006070| 63 74 20 32 34 20 31 35 | 3a 32 38 3a 35 38 20 31 |ct 24 15|:28:58 1|
|00006080| 39 38 38 0a 58 2d 2d 2d | 20 6e 70 2e 46 09 4d 6f |988.X---| np.F.Mo|
|00006090| 6e 20 4f 63 74 20 32 34 | 20 31 35 3a 32 38 3a 35 |n Oct 24| 15:28:5|
|000060a0| 38 20 31 39 38 38 0a 58 | 2a 2a 2a 2a 2a 2a 2a 2a |8 1988.X|********|
|000060b0| 2a 2a 2a 2a 2a 2a 2a 0a | 58 2a 2a 2a 20 32 35 2c |*******.|X*** 25,|
|000060c0| 33 31 0a 58 20 20 31 30 | 09 57 52 49 54 45 28 4f |31.X 10|.WRITE(O|
|000060d0| 55 54 43 48 2c 35 30 29 | 0a 58 20 20 43 09 09 09 |UTCH,50)|.X C...|
|000060e0| 09 09 09 21 50 52 4f 4d | 50 54 20 46 4f 52 20 47 |...!PROM|PT FOR G|
|000060f0| 41 4d 45 2e 0a 58 20 20 | 23 69 66 64 65 66 20 4e |AME..X |#ifdef N|
|00006100| 4f 43 43 0a 58 21 20 35 | 30 09 46 4f 52 4d 41 54 |OCC.X! 5|0.FORMAT|
|00006110| 28 27 3e 27 2c 24 29 0a | 58 20 20 23 65 6c 73 65 |('>',$).|X #else|
|00006120| 20 4e 4f 43 43 0a 58 20 | 20 35 30 09 46 4f 52 4d | NOCC.X | 50.FORM|
|00006130| 41 54 28 27 20 3e 27 2c | 24 29 0a 58 20 20 23 65 |AT(' >',|$).X #e|
|00006140| 6e 64 69 66 20 4e 4f 43 | 43 0a 58 0a 58 2d 2d 2d |ndif NOC|C.X.X---|
|00006150| 20 32 35 2c 33 31 20 2d | 2d 2d 2d 2d 0a 58 20 20 | 25,31 -|----.X |
|00006160| 31 30 09 57 52 49 54 45 | 28 4f 55 54 43 48 2c 35 |10.WRITE|(OUTCH,5|
|00006170| 30 29 0a 58 20 20 43 09 | 09 09 09 09 09 21 50 52 |0).X C.|.....!PR|
|00006180| 4f 4d 50 54 20 46 4f 52 | 20 47 41 4d 45 2e 0a 58 |OMPT FOR| GAME..X|
|00006190| 20 20 23 69 66 64 65 66 | 20 4e 4f 43 43 0a 58 21 | #ifdef| NOCC.X!|
|000061a0| 20 35 30 09 46 4f 52 4d | 41 54 28 27 3e 27 29 0a | 50.FORM|AT('>').|
|000061b0| 58 20 20 23 65 6c 73 65 | 20 4e 4f 43 43 0a 58 20 |X #else| NOCC.X |
|000061c0| 20 35 30 09 46 4f 52 4d | 41 54 28 27 20 3e 27 2c | 50.FORM|AT(' >',|
|000061d0| 24 29 0a 58 20 20 23 65 | 6e 64 69 66 20 4e 4f 43 |$).X #e|ndif NOC|
|000061e0| 43 0a 58 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |C.X*****|********|
|000061f0| 2a 2a 0a 58 2a 2a 2a 20 | 33 30 2c 33 36 0a 58 20 |**.X*** |30,36.X |
|00006200| 20 35 30 09 46 4f 52 4d | 41 54 28 27 20 3e 27 2c | 50.FORM|AT(' >',|
|00006210| 24 29 0a 58 20 20 23 65 | 6e 64 69 66 20 4e 4f 43 |$).X #e|ndif NOC|
|00006220| 43 0a 58 20 20 0a 58 21 | 20 39 30 09 52 45 41 44 |C.X .X!| 90.READ|
|00006230| 28 49 4e 50 43 48 2c 31 | 30 30 2c 20 45 4e 44 3d |(INPCH,1|00, END=|
|00006240| 32 31 30 29 20 42 55 46 | 46 45 52 0a 58 20 20 31 |210) BUF|FER.X 1|
|00006250| 30 30 09 46 4f 52 4d 41 | 54 28 37 38 41 31 29 0a |00.FORMA|T(78A1).|
|00006260| 58 20 20 0a 58 20 20 09 | 44 4f 20 32 30 30 20 4c |X .X .|DO 200 L|
|00006270| 45 4e 47 54 48 3d 37 38 | 2c 31 2c 2d 31 0a 58 0a |ENGTH=78|,1,-1.X.|
|00006280| 58 2d 2d 2d 20 33 30 2c | 33 36 20 2d 2d 2d 2d 2d |X--- 30,|36 -----|
|00006290| 0a 58 20 20 35 30 09 46 | 4f 52 4d 41 54 28 27 20 |.X 50.F|ORMAT(' |
|000062a0| 3e 27 2c 24 29 0a 58 20 | 20 23 65 6e 64 69 66 20 |>',$).X | #endif |
|000062b0| 4e 4f 43 43 0a 58 20 20 | 0a 58 21 20 39 30 09 52 |NOCC.X |.X! 90.R|
|000062c0| 45 41 44 28 49 4e 50 43 | 48 2c 31 30 30 2c 45 4e |EAD(INPC|H,100,EN|
|000062d0| 44 3d 32 31 30 29 20 28 | 42 55 46 46 45 52 28 4c |D=210) (|BUFFER(L|
|000062e0| 45 4e 47 54 48 29 2c 4c | 45 4e 47 54 48 3d 31 2c |ENGTH),L|ENGTH=1,|
|000062f0| 37 38 29 0a 58 20 20 31 | 30 30 09 46 4f 52 4d 41 |78).X 1|00.FORMA|
|00006300| 54 28 37 38 41 31 29 0a | 58 20 20 0a 58 20 20 09 |T(78A1).|X .X .|
|00006310| 44 4f 20 32 30 30 20 4c | 45 4e 47 54 48 3d 37 38 |DO 200 L|ENGTH=78|
|00006320| 2c 31 2c 2d 31 0a 58 2a | 2a 2a 2a 2a 2a 2a 2a 2a |,1,-1.X*|********|
|00006330| 2a 2a 2a 2a 2a 2a 0a 58 | 2a 2a 2a 20 33 38 2c 34 |******.X|*** 38,4|
|00006340| 34 0a 58 20 20 32 30 30 | 09 43 4f 4e 54 49 4e 55 |4.X 200|.CONTINU|
|00006350| 45 0a 58 20 20 09 47 4f | 20 54 4f 20 35 0a 58 20 |E.X .GO| TO 5.X |
|00006360| 20 43 09 09 09 09 09 09 | 21 45 4e 44 20 4f 46 20 | C......|!END OF |
|00006370| 46 49 4c 45 0a 58 21 20 | 32 31 30 09 53 54 4f 50 |FILE.X! |210.STOP|
|00006380| 0a 58 20 20 43 09 09 09 | 09 09 09 21 54 52 59 20 |.X C...|...!TRY |
|00006390| 41 47 41 49 4e 2e 0a 58 | 20 20 0a 58 20 20 43 0a |AGAIN..X| .X C.|
|000063a0| 58 0a 58 2d 2d 2d 20 33 | 38 2c 34 34 20 2d 2d 2d |X.X--- 3|8,44 ---|
|000063b0| 2d 2d 0a 58 20 20 32 30 | 30 09 43 4f 4e 54 49 4e |--.X 20|0.CONTIN|
|000063c0| 55 45 0a 58 20 20 09 47 | 4f 20 54 4f 20 35 0a 58 |UE.X .G|O TO 5.X|
|000063d0| 20 20 43 09 09 09 09 09 | 09 21 45 4e 44 20 4f 46 | C.....|.!END OF|
|000063e0| 20 46 49 4c 45 0a 58 21 | 20 32 31 30 09 43 41 4c | FILE.X!| 210.CAL|
|000063f0| 4c 20 45 58 49 54 0a 58 | 20 20 43 09 09 09 09 09 |L EXIT.X| C.....|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
